Zitat von
hibbert:
stichwort application.ProcessMessages
habe ich ausprobiert, leider keine gute Lösung bekommen
Ich bin nun fast zufrieden mit diesem Code
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
//form1.Color:=225;
Form1.Color:=$FFFFFF;
Delay(200);
Form1.Color:=clBtnFace;
Delay(200);
Form1.Color:=$FFFFFF;
end;