Wenn du das so haben willst, dass man aufs label klicken kann und dann kommt die Abfrage, ob geschlossen werden soll, oder nicht, dann mach es doch so:
Delphi-Quellcode:
procedure TForm1.Label9Click(Sender: TObject);
begin
if MessageDlg('Serialarchiv wirklich schiließen?',mtwarning,[mbyes, mbno],0) = mryes then
Close;
end;
Wobei
close nur das jeweilige Formular schließt, es sei denn, es ist das MainForm. Wenn das MainForm geschlossen wird, ist alles geschlossen.
Wenn du immer alles schließen willst, schlage ich dir statt close
Application.Terminate vor
