/ 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
Forhindre åbning af flere vinduer
Fra : Ib Pedersen


Dato : 09-01-02 15:14

Hej.

Hvordan forhindre man at man kan åbne mere en én instans af et vindue?? Og
af det pågældende program??

Jeg bruger MDIforms og Delphi interprise.

mvh.

Ib.



 
 
Asger Grunnet (09-01-2002)
Kommentar
Fra : Asger Grunnet


Dato : 09-01-02 22:26


"Ib Pedersen" <enemark@mail.NOSPAMnet4you.dk> wrote in message news:3c3c501a$0$89064$edfadb0f@dspool01.news.tele.dk...
> Hej.
>
> Hvordan forhindre man at man kan åbne mere en én instans af et vindue?? Og
> af det pågældende program??
>
> Jeg bruger MDIforms og Delphi interprise.
>
> mvh.
>
> Ib.

Hvis du vil undgå at åbne flere instanser af en applikation, kan du gøre følgende
i hoved-formens FormCreate event-procedure:


procedure TForm1.FormCreate(Sender: TObject);
var
wHandle : THandle;
begin
wHandle := CreateMutex(nil, True, 'ApplicationSpecificName');
if WaitForSingleObject(wHandle, 0) = WAIT_TIMEOUT then begin
ShowMessage('Can not open multiple instances!');
Application.Terminate;
end;
end;


Asger.



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste