Forum: Sonstige Fragen zu Delphi
by Matze,
12. Jan 2006
Etwas anschaulicher, aber länger, wäre diese Möglichkeit:
var
Color_Flag: Integer = 1;
procedure TForm1.Button1Click(Sender: TObject);
begin
case Color_Flag of
Forum: Sonstige Fragen zu Delphi
by Matze,
12. Jan 2006
Dann zählst du eine Integervariable hoch.
Beim 1. Klick hat diese den Wert "1", beim 2. "2", beim 3. "3" (manuell höchzählen) und ist der Wert "3", setzt du ihn zurück auf "1".
Forum: Sonstige Fragen zu Delphi
by Matze,
12. Jan 2006
Du könntest eine boolsche Variable zu Beginn auf true setzen, im OnClick den Wert abfragen und den Wert der Variable dort verändern.
BoolVar := not BoolVar;
Hier wäre es dann so, dass immer abwechselnd Farbe 1 und Farbe 2 genommen werden. Natürlich könntest du ein eine Integervariable nehmen, da kannst du mehrere Status, Statusse, Stati (such's dir raus :oops: ) abfragen.