Hallo!
Du brauchst ja eine Unterscheidung, in welchem Zustand sich Dein Programm gerade befindet.
Dafür könnstest Du zum Beispiel die Tag-Eigenschaft des Buttons verwenden.
Dann könntest Du in OnClick schreiben:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| Case Button1.Tag of
1: begin
(...)
end;
2: begin
(...)
end;
3: begin
(...)
end;
end; |
Den Status müsstest Du entsprechend nach Abschluss der jeweiligen Operation setzen.
Alternativ könntest Du mehrere Prozeduren für OnClick schreiben und diese zur Laufzeit mit
Delphi-Quelltext
1:
| Button1.OnClick:=Button1ClickAfterLoad; |
etc.
zuweisen.
Ich benutze zur Statusunterscheidung allerdings eine eigene Variable um nicht aus Versehen die Tag-Eigenschaft mehrfach zu benutzen und Fehler zu provozieren...
MfG,
S.J.
