|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
Delphi 11 Alexandria
|
Re: Button reihenfolge
10. Sep 2003, 19:32
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;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|