Cómo implementar botones transparentes en Delphi

Estimados lectores, en la práctica de programación de Delphi real, podemos usar controles de botones para crear teclas de botones en el programa. Pero al usar otro software, a menudo podemos ver el efecto de los botones transparentes. Entonces, ¿cómo lograr el efecto de los botones transparentes en Delphi? El autor registró mucho tiempo en Internet, pero no encontró los controles en esta área, por lo que decidió hacer que él mismo lo siguiera.

Para implementar botones transparentes, se requieren tres controles en total: imagen, etiqueta y bisel. El control de la imagen se coloca para resaltar el efecto transparente (como fondo), y la etiqueta debe mostrar las palabras en la tecla. El bisel muestra una caja tridimensional. (Este control puede lograr el efecto de mostrar un efecto sobresaliente cuando el mouse se mueve al botón) Echemos un vistazo a los pasos específicos a continuación.

1. Cree un archivo de proyecto en Delphi6.0 primero

2. Seleccione primero una imagen y preste atención a su tamaño. Luego ajuste el formulario al mismo tamaño que la imagen.

3. Luego, coloque un control de imagen en el formulario y ajuste su atributo Alinee a Alclient. Luego seleccione la propiedad de la imagen y haga clic en el botón pequeño.

4. Luego coloque un control de etiqueta en el formulario y establezca el contenido de texto y el tamaño de fuente del botón razonablemente. Haga clic en la propiedad transparente para establecer la etiqueta como transparente.

5. Finalmente, coloque un control de bisel en el formulario. Establezca el atributo de forma en BSBOX, luego establezca el atributo de estilo en Bsraise (este es un efecto repentino) y cambia el atributo visible a FALSE (este programa no es visible cuando se ejecuta).

6. Establezca razonablemente las posiciones de la etiqueta y los controles de bisel para que las posiciones y posiciones de los controles de bisel y etiquetas sean las mismas. Puede usar CTRL+FLECHA para cambiar el control del control y usar Shift+Arrow para tamaño fino del control.

Comencemos a programar ahora.

Procedimiento tForm1.label1MouseMove (remitente: tobject; shift: tshiftState; x, y: integer); que el evento OnClick se puede ejecutar Fin; Shift: tshiftState;

Además, para garantizar que el botón transparente no se vea muy monótono, también puede colocar un icono cerca del control de la etiqueta, lo que hará que el usuario se vea más claro.