On Sun, 17 Dec 2000 17:18:58 GMT, torsten@nielsen.mail.dk (Torsten
Tolstrup Nielsen) wrote:
> Hej
>
> Jeg vil meget gerne kunne slå ALT+F4 fra i det program jeg er ved at
> udvikle, da det er et program, som helst ikke skal kunne lukkes uden
> en kode...
>
> Hvis en af jer har andre forslag til hvordan jeg kan lave det på en
> anden måde er jeg meget åben over for forslag.
>
> Mvh Torsten
Peter Below (TeamB) har et forslag:
Add a handler for the WM_SYSCOMMAND message to the form, look for
(msg.cmdtype and %FFF0) = SC_CLOSE, do not call inherited for this
case:
private
{ Private declarations }
procedure wmSyscommand( var msg: TWMSyscommand );
message WM_SYSCOMMAND;
procedure TForm1.wmSyscommand(var msg: TWMSyscommand);
begin
{ Trap attempts to close the form via close box or system menu
or Alt-F4, treat that as cancel. }
if (msg.CmdType and $FFF0) = SC_CLOSE then
...do stuff, call inherited only if you want the from to close
else
inherited;
end;
Download en hjælpefil med 1000-vis af hans tips her:
http://www.primenet.com/~mcessna/delphi/PeterBelow.zip
Venlig hilsen
Finn Ekberg Christiansen