Si ha utilizado "Kingsoft PowerWord" u "Orient Express", definitivamente le interesarán los subtítulos en su ventana "Acerca de". De hecho, esta función se puede realizar fácilmente usando el control Temporizador en Delphi.
1. Ideas de diseño
Primero, coloque un control del Panel en el formulario y coloque el texto que debe mostrarse en el control del Panel. Luego, a través del control del Temporizador, la posición del control del Panel se puede cambiar continuamente dentro de un cierto intervalo para lograr el efecto de desplazamiento. subtítulos.
2. Método de implementación
1. Cree un nuevo formulario y establezca sus propiedades de la siguiente manera:
Nombre:frmAbout1
Desplazamiento automático: Falso
2. Coloque un control Panel en el formulario, su nombre predeterminado es Panel1 y establezca sus propiedades de la siguiente manera:
BiselExterior:bvNinguno
Título: (establecido en vacío)
Ajuste la altura y el ancho del Panel1 para convertirlo en una franja vertical. La altura depende del contenido que se mostrará (puede ser mayor que la altura del formulario).
3. Coloque un control Etiqueta en el Panel1 para mostrar texto. Por supuesto, también puede colocar un control Imagen en él para mostrar imágenes, pero el tamaño de la imagen no debe ser demasiado grande, de lo contrario afectará el efecto de visualización.
4. Coloque un control Temporizador en el formulario, su nombre predeterminado es Temporizador1, establezca el valor de su propiedad Intervalo en 50 e ingrese el siguiente código en su evento OnTimer:
si Panel1.top>－Panel1.height entonces
Panel1.arriba:=Panel1.arriba-1
demás
Panel1.top:=frmAbout1.height－35;
{Determine si el Panel1 se ha movido a la parte superior del formulario. De lo contrario, muévalo hacia arriba un píxel; de ser así, mueva el Panel1 a la parte inferior del formulario y muestre los subtítulos en un bucle}
5. Coloque un control Botón en el formulario, establezca su propiedad Título en "Aceptar" e ingrese el siguiente código en el evento OnClick:
cerrar;{Cerrar el formulario}
3. Mejorar el análisis
Lo anterior es un proceso de implementación simple de subtítulos continuos, pero todavía hay un área que necesita mejoras adicionales: si el formulario usa una imagen como fondo, el control del Panel bloqueará parte del patrón de fondo. De hecho, para resolver este problema, no podemos usar el control Panel en absoluto, sino colocar directamente el control Etiqueta en el formulario, establecer el valor de la propiedad Transparente del control Etiqueta en Verdadero y luego controlar directamente estos controles Etiqueta a través del Temporizador. control del movimiento. Debido a limitaciones de espacio, el autor no lo describirá en detalle aquí.