Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Go2EITS,
5. Okt 2006
Kleiner Schönheitsfehler in der vorstehenden Lösung: Damit das Programm beim nächsten Schließen beendet werden kann, denn wenn CanClose:=False ist, kommt man aus dem Programm nicht mehr so einfach raus, muss irgendwo ein CanClose:=True rein. z. B. so:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Close the form?', mtConfirmation,
,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Go2EITS,
11. Sep 2006
Danke Steve, danke Lukie! :thumb:
Das ist es!
Hier die Lösung mit F1:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Close the form?', mtConfirmation,
, 0) = mrCancel then
CanClose := False;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Go2EITS,
11. Sep 2006
Danke Steve, ONCLOSE zeigt mir die Form und die Message bevor dann das Fenster geschlossen wird. Und das will ich verhindern. Wie nun weiter? :gruebel: