Comment implémenter des boutons transparents à Delphi

Chers lecteurs, dans la pratique de la programmation Delphi réelle, nous pouvons utiliser des contrôles de bouton pour créer des touches de bouton dans le programme. Mais lorsque vous utilisez d'autres logiciels, nous pouvons souvent voir l'effet des boutons transparents. Alors, comment réaliser l'effet des boutons transparents à Delphi? L'auteur a fouillé Internet pendant beaucoup de temps mais n'a pas trouvé les contrôles dans ce domaine, il a donc décidé de le bricoler lui-même.

Pour implémenter des boutons transparents, trois contrôles sont nécessaires en total - image, étiquette et biseau. Le contrôle d'image est placé pour mettre en évidence l'effet transparent (comme l'arrière-plan) et l'étiquette est d'afficher les mots sur la clé. Le biseau affiche une boîte tridimensionnelle. (Ce contrôle peut réaliser l'effet de montrer un effet saillant lorsque la souris se déplace vers le bouton) Jetons un coup d'œil aux étapes spécifiques ci-dessous.

1. Veuillez d'abord créer un fichier de projet dans Delphi6.0

2. Veuillez sélectionner d'abord une image et faire attention à sa taille. Ajustez ensuite le formulaire à la même taille que l'image.

3. Ensuite, placez un contrôle d'image sur le formulaire et ajustez son attribut d'alignement à Alclient. Sélectionnez ensuite la propriété de l'image et cliquez sur le petit bouton.

4. Placez ensuite un contrôle d'étiquette sur le formulaire et définissez raisonnablement le contenu du texte et la taille de la police du bouton. Cliquez sur la propriété transparente pour définir l'étiquette comme transparente.

5. Enfin, placez un contrôle de biseau sur le formulaire. Définissez l'attribut de forme sur BSbox, puis définissez l'attribut de style à bsraise (c'est un effet soudain) et modifiez l'attribut visible à FALSE (ce programme n'est pas visible lors de l'exécution).

6. Remarquez les positions des commandes d'étiquette et de biseau afin que les positions et les positions des contrôles de biseau et d'étiquette soient les mêmes. Vous pouvez utiliser Ctrl + Arrow pour micro-décalé le contrôle et utiliser Shift + Arrow pour dimensionner fin le contrôle.

Commençons maintenant la programmation.

Procédure TForm1.Label1Mousove (Sender: TOBject; Shift: TSHIFTSTATE; X, Y: entier); que l'événement onClick peut être exécuté; Shift: tshiftState; x, y: entier); beginbevel1.visible: = false; // lorsque la souris déplace le contrôle de l'image, le bouton du contrôle de biseau n'est pas visible et ne soulève pas l'extrémité;

De plus, afin de vous assurer que le bouton transparent ne semble pas très monotone, vous pouvez également placer une icône près du contrôle de l'étiquette, ce qui rendra l'utilisateur plus clair.