2 mal klicken?!

[SnOxXx]

Hey!
Hab wieder mal ne Frage!

also: ich hab z.b ein programm, ganz simpel, mit einem button und wenn mann draufklickt ändert sich die farbe des Fensters! Was muss ich schreiben, befehlen, was auch immer, damit wenn ich ein 2es mal draufklicke wieder eine andere farbe kommt???

greeetz schalli

[Matze]

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 ) abfragen.

[MisterNiceGuy]

Hm deine Frage ist für mich nicht eindeutig. Soll das Fenster beim Klicken die Farbe wechseln (z.B. grau-> blau blau-> grau)? Oder soll dem Fenster eine zufällige Farbe zugewiesen werden?

Für den erste Fall schreibst du in die Procedure des Buttons:

Delphi-Quellcode:

if form1.color = clbtnface then
  form1.color := clblue
  else form1.color := clbtnface;

Für den 2. hab ich derzeit keine Lösung im Kopf

[SnOxXx]

ok ich sag mal danke...wenns nicht klappt melde ich mich nochmal....

[SnOxXx]

ok...war anders gmeind...sozusagen eine 3. farbe möchte ich dazubekommen! also von grau auf z.b blau und von blau auf orange....und das ganze wieder von vorn

[Matze]

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".

[SnOxXx]

aha *lol*
und das geht wie???

[JasonDX]

am einfachsten geht das so:

Delphi-Quellcode:

var
  ind: byte = 0;

//im onClick:
const
  farben: array[0..2] of TColor = (clBlack, clRed, clBlue);
begin
  self.Color := farben[ind];
  ind:= (ind+ 1) mod length(farben);
end;

dürfte einwandfrei klappen, und das hinzufügen von Farben is dann auch nicht mehr allzuschwer

greetz
Mike

[Matze]

Etwas anschaulicher, aber länger, wäre diese Möglichkeit:

Delphi-Quellcode:

var
  Color_Flag: Integer = 1;

[...]

procedure TForm1.Button1Click(Sender: TObject);
begin
  case Color_Flag of
    1: Color := clRed;
    2: Color := clYellow;
    3: Color := clGreen;
  end;

  if Color_Flag <> 3 then
    inc(Color_Flag) else
      Color_Flag := 1;
end;

[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;