PDA

Ver la versión completa : Traigo un truco de Delphi 7



rreyes87
06/05/2007, 20:36
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 www.q3.nu/trucomania
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.