2 mal klicken?!

[Lannes]

Hallo,

dann schlag ich mal eine weiter Variante vor:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  case Color of
    clBtnFace : Color := clGreen;
    clGreen   : Color := clRed;
    clRed     : Color := clYellow;
    clYellow  : Color := clBtnFace;
  end;
end;