Blinken mit Timer

[toms]

Hi,

Ich würde keinen Timer nehmen sondern z.B Sleep.

Code:

procedure BlinkComponent(AControl: TControl);
begin
 AControl.Enabled := False;
 Sleep(1000);
 AControl.Enabled := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Byte;
begin
 for i := 1 to 3 do
   BlinkComponent(Button1);
end;