Thursday, January 20, 2011

Label Tampil Secara Bergantian

sediakan pada form

  • 2 label
  • 1 timer
  • pada event di timer
procedure TForm1.Timer1Timer(Sender: TObject);
var n:byte;
begin
n:=strtoint(formatdatetime('ss',now()));
if (n mod 2)=0 then label1.Visible:=false
else
label1.Visible:=true;
label2.Visible:=not label1.Visible;

end;

0 comments:

Post a Comment

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Kang Iwan K-sev | Thank's for your visit To My Site - Ridwan Mulyana | Cibeureum