-
Traigo un truco de Delphi 7
Hola, un saludo a los de este foro, me parece conveniente enseñarles un truco que aprendí en Delphi 7 y que no está en el índice de trucos de [url]www.q3.nu/trucomania[/url]
me refiero al truco para hacer parpadear un Tlabel
El código es el siguiente:
Se inserta el Tlabel (label1) y un Ttimer (timer1)
en la propiedad "interval" del timer1 colocarle el valor 500
var
Form1:TForm1;
parp:boolean;
Implementation
.................
procedure form1.formcreate .... (al crear la form)
begin
parp:=false;
end;
procedure form1.timer1timer ...
begin
if parp=false then
begin
label1.font.color:=clred;
parp:=true;
end;
if parp=true then
begin
label1.font.color:=clgreen;
parp:=false;
end;
end;
end.
Y a ejecutar el programa, el cual parpadeará entre rojo y verde
¿Dudas?, ¿Otros trucos? pueden contactarme, siempre estoy disponible. Un saludo, Reynier.
Permisos de publicación
- No puedes crear nuevos temas
- No puedes responder temas
- No puedes subir archivos adjuntos
- No puedes editar tus mensajes
-
Reglas del foro
Marcadores