[DELPHI] Minimaliseren, bij drukken op close-form

[douweh]

Ok, vraagje,

ik heb een programmatje gemaakt dat de gebruiker eigenlijk niet weg kan kliken, het moet namelijk geminimaliseerd worden, als er op het kruisje gedrukt wordt..

Nou had ik dat eerst zo aan gepakt:

in de onCloseQuery van t form had ik gezegd.

code:

Form1.Hide;
CanClose:=false;

Dan werkt t wel, maar als ik windows(2000) afsluit terwijl t programma runt, wil die niet afsluiten, omdat ie mijn programmatje niet kan sluiten

code:

CanClose:=false; //altijd ;)

Iemand een idee hoe ik dit aanp[ak?

[Guillome]

Zoiets?

code:

private    
{ Private declarations }
 procedure WMEndSession(var Msg : TWMEndSession); message WM_ENDSESSION; 

Var MagHetFormSluiten : Boolean = False;

procedure TForm1.WMEndSession(var Msg : TWMEndSession); 
begin
  MagHetFormSluiten  := True;
end;

Procedure TForm1.OnCloseQurey(blabla)
Begin
  CanClose := MagHetFormSluiten ;
End;

[whoami]

In de OnClose event van uw form heb je een argument Action van het type TCloseAction.
Die moet je op caMinimize zetten.

je hebt dus het volgende :

code:

procedure TfrmMain.FormClose(TObject Sender; TCloseAction Action);
begin

   Action := caMinimize;
end;