Button reihenfolge

[Die Muhkuh]

ich hab vor das wenn man auf einen Button drückt das ein Label z.b Hallo anzeigt und wann man wieder auf den Button klickt kommt z.b wie geht's dir wenn danach nochmal draufdrückt kommt wieder was anderes!

Wie geht das denn???

[Daniel B]

Schreib Deine ganzen Texte in eine Liste, dann mach Dir ne Intergervariable(global) und bei jedem Button-Klick Incrementierst Du Deine Variable, beim Klick kannst Du nun die Variable als Index für Deine Liste benutzen und somit bei jedem Klick den nächsten Satz anzeigen.

[Lillebrohr]

Guten Tag Spider,


nimm ein String-array, und packe dort den ganzen Mist rein.

So jetzt hast du einen Zähler der bei jeden Buttonklick erhöht wird.

Der Zähler ist dann gleichzeitig der Pointer für das Array.


Bis denne

LB

[1PM]

Versuch es mit einem Array.
Wenn du auf den Button klickst, wird eine Integervariable erhöht:

Delphi-Quellcode:

integervar := integervar+1;
labeltext.caption := stringarray[integervar];

Allerdings musst du bei Programmstart angeben, was in dem Array stehen soll.

Delphi-Quellcode:

 stringarray[1]:='Hallo!';
 stringarray[2]:='Wie geht es dir?';
  .
  .
  .

Gruß
1PM

[Die Muhkuh]

THX

[Christian Seehase]

Moin Spider,

und wenn Du Dir auch noch die globale Variable ersparen willst, nimmst Du die Eigenschaft Tag des Buttons als Zähler.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Tag > (StringArray.Count-1) then Button1.Tag := 0;
  ShowMessage(StringArray[Button1.Tag]);
  Button1.Tag := Button1.Tag+1;
end;