/
Forside
/
Teknologi
/
Udvikling
/
Delphi/Pascal
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Delphi/Pascal
#
Navn
Point
1
oldwiking
603
2
jrossing
525
3
rpje
520
4
EXTERMINA..
500
5
gandalf
460
6
gubi
270
7
DJ_Puden
250
8
PARKENSS
230
9
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
Alle emner
Teknologi
Udvikling
Delphi/Pascal
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177483
Tips :
31964
Nyheder :
719565
Indlæg :
6408395
Brugere :
218884
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.