---

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

---

"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

---

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
>
>