Button - Schrift blinken lassen...

[Haegar]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 label1.Font.Color:=random(2147483647);    //max. positives integer
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 randomize;
end;

nachdem es ja nu imt dem button nicht ging, hier ein beispiel am label
vorher am besten im FormCreate "randomize;".


gruss haegar