Hallo, ich bin's wieder
ich moechte in meinem Programm dem User die Moeglichkeit geben, wenn er auf den Beenden-Button des Fensters ([X]-Button rechts oben) klickt, das Fenster nur minimiert wird.
Ich hab es jetzt soweit, das das Programm nur beendet werden kann, wenn ein bestimmter Button im Fenster gedrueckt wird.
Nebeneffekt ist, das z.B. 'Alt-F4', Beenden im Systemmenu ebenfalls nur zum Minimieren fuehren.. das find ich persoenlich nicht so schlimm, aber was passiert, wenn Windows das Programm schliessen will?
Ich hab's bei mir (WinXP) probiert, bei nem Neustart gab's keine Probleme und ueber den Task-Manager abschiessen kann man das Programm auch..
Kann die Funktion so bleiben, oder gibt's da auch was eleganteres?
Wenn alles super ist, dann hab ich eben nur ein Beispiel geposted..
Exit-Button (der richtige Button im Fenster) OnClick-Event:
Delphi-Quellcode:
procedure TForm_Main.Button_ExitClick(Sender: TObject);
begin
ExitButtonWasClicked := True; // globale Variable (ist bei Programmstart auf False)
Close;
end;
der OnCloseQuery_Event vom Hauptfenster
Delphi-Quellcode:
procedure TForm_Main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
msg: Integer;
text: String;
askexit: Boolean;
begin
askexit := True;
if (reg_minonx = True) and (ExitButtonWasClicked = False) then askexit := False;
if askexit then
begin
text := 'Wollen Sie wirklich beenden?';
msg := Application.MessageBox(Pointer(text), 'Beenden', MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION);
// wenn YES gewählt, dann ist msg = 6
if msg = 6 then
CanClose := True
else
CanClose := False;
end
else
CanClose := False;
if (reg_minonx) and (not CanClose) and (not ExitButtonWasClicked) then
Application.Minimize;
ExitButtonWasClicked := False;
end;
(minonx ist True, wenn nur minimiert werden soll)
Mat