/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Hvordan kan man slå ALT+F4 fra?
Fra : Torsten Tolstrup Nie~


Dato : 17-12-00 18:19

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

 
 
Finn Ekberg Christia~ (21-12-2000)
Kommentar
Fra : Finn Ekberg Christia~


Dato : 21-12-00 20:58

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

Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408927
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste