Hallo Delphifans,
habe eine App mit mehreren Programmteilen, welchem ich den herkömmlichen Schliessen-Button abgeschaltet habe.
Dazu verwende ich die OnCloseQuery in der ich CanClose := false gesetzt habe.
Wenn nun der Anwender den Schließbutton drückt, kommt die Abfrage, ob er diesen Programmteil verlassen will.
Wenn ja, dann kommt der auf die s.g. Startseite zurück.
Dort kann er jetzt ein anderes Programm aufrufen oder das gesamte Programm verlassen
Und hier ist mein Problem
Ich habe bisher keine Möglichkeit gefunden, dort an dieser Stelle das Programm zu schließen oder zu verlassen.
Da ist ja auch noch CanClose aktiv.
Was kann ich tun?
Danke für jede Hilfe
ciao
LingNeu
Delphi-Quellcode:
//der normale Schliessen-Button wird umfunktioniert ...
procedure Tfrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := False; // damit wird die Form offen gehalten
// restliche Abfrage Ja/Nein
end;
//ein anderer Button soll tatsächlich die Form schliessen ...
procedure Tfrm.Button1Click(Sender: TObject);
begin
frm.Close; //geht nicht
end;