Es geht aber auch folgendes:
Quelltext
1: 2: 3: 4:
| procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction); begin
end; |
Wobei
Action folgende Werte zugeordnet werden können:
caNone = Das Formular darf nicht geschlossen werden, daher geschieht nichts.
caHide = Das Formular wird nicht geschlossen, sondern lediglich verborgen. Die Anwendung kann nach wie vor auf das Formular zugreifen.
caFree = Das Formular wird geschlossen und sein Speicher freigegeben.
caMinimize = Das Formular wird nicht geschlossen, sondern als Symbol angezeigt.