/ 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
Application.Onmessage
Fra : Michael Vilhelmsen


Dato : 20-11-02 10:36

Hej

Hvordan kan jeg benytte denne i mit program ?

Jeg havde tænkt mig noget med, at den skulle se efter, om der f.eks. var
blevet trykket F8, hvorefter jeg vil gøre noget !

Michael



 
 
Harald (20-11-2002)
Kommentar
Fra : Harald


Dato : 20-11-02 11:19

"Michael Vilhelmsen" <smom22@tdcadsl.dk> skrev i en meddelelse
news:3ddb577f$0$52642$edfadb0f@dread15.news.tele.dk...
> Hej
>
> Hvordan kan jeg benytte denne i mit program ?
>
> Jeg havde tænkt mig noget med, at den skulle se efter, om der f.eks. var
> blevet trykket F8, hvorefter jeg vil gøre noget !

Prøv dette:

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=MyOnMssage;
end;

procedure TForm1.MyOnMssage(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.message=WM_KEYDOWN) and (Msg.wParam=VK_F8) then
begin
Handled:=true;
beep;
// gør noget
end;
end;

Mvh
HK



Michael Vilhelmsen (20-11-2002)
Kommentar
Fra : Michael Vilhelmsen


Dato : 20-11-02 20:02

Jeg tajjer mange gange.

Michael


"Harald" <swobu@kroning.dk> skrev i en meddelelse
news:3ddb61b4$0$71990$edfadb0f@dread16.news.tele.dk...
> "Michael Vilhelmsen" <smom22@tdcadsl.dk> skrev i en meddelelse
> news:3ddb577f$0$52642$edfadb0f@dread15.news.tele.dk...
> > Hej
> >
> > Hvordan kan jeg benytte denne i mit program ?
> >
> > Jeg havde tænkt mig noget med, at den skulle se efter, om der f.eks. var
> > blevet trykket F8, hvorefter jeg vil gøre noget !
>
> Prøv dette:
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Application.OnMessage:=MyOnMssage;
> end;
>
> procedure TForm1.MyOnMssage(var Msg: TMsg; var Handled: Boolean);
> begin
> if (Msg.message=WM_KEYDOWN) and (Msg.wParam=VK_F8) then
> begin
> Handled:=true;
> beep;
> // gør noget
> end;
> end;
>
> Mvh
> HK
>
>



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

Månedens bedste
Årets bedste
Sidste års bedste