Einzelnen Beitrag anzeigen

Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.628 Beiträge
 
#6

Re: 1 button mehrere befehle nacheinander

  Alt 17. Aug 2007, 13:05
Das musst Du selber als Variable des Formulars deklarieren.

z.B.
Delphi-Quellcode:
private
  FKlickAnzahl: Integer;
Im Create-Event des Formulars musst Du die dann initialisieren. Also FKlickAnzahl := 0;

Im ButtonClick-Event fragst Du dann ab:
Delphi-Quellcode:
if FKlickAnzahl = 0 then
begin
  // tu was beim ersten Klick
  Inc(FKlickAnzahl); // Erhöhe Klickanzahl
end
else if KlickAnzahl = 1 then
begin
  // tu was beim zweiten Klick
  Inc(FKlickAnzahl); // Erhöhe Klickanzahl
end
else
begin
  // tu was beim letzten klick
  FKlickAnzahl := 0; // wieder zurücksetzen
end;
Oder so ähnlich...
Sebastian Gingter
Phoenix - 不死鳥, Microsoft MVP, Rettungshundeführer
Über mich: Sebastian Gingter @ Thinktecture Mein Blog: https://gingter.org
  Mit Zitat antworten Zitat