09-09-2009, 02:54 AM
السلام عليكم
و هذا كود آخر
و هذا كود آخر
كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Visible:=not(label1.Visible);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=500;
end;