A voir également:
- Delphi getasynckeystate
- Python détecter touche clavier ✓ - Forum VB.NET
- Symbole flash clavier - Forum Flash
- Flash 8 touche de clavier ✓ - Forum Flash
- Touche du clavier - Forum Flash
- Appuyer sur une touche - Forum Flash
4 réponses
Mets un button et une listbox
procedure TForm1.Button1Click(Sender: TObject);
const
BIT15 = 32768;
BIT1 = 1;
var
a: integer;
arret:boolean;
begin
arret:=false;
while Arret=False do begin
For a := 32 To 121 do begin
If (GetAsyncKeyState(121) And BIT15) <> 0 Then arret:=true;
If (GetAsyncKeyState(a) And BIT15) <> 0 Then begin
ListBox1.Items.Add(inttostr(a))
end;
button1.Caption:='marche';
application.ProcessMessages;
end;
end;
button1.Caption:='fini';
end;
@+
Fabs :big)
12WareSoft WebSite
procedure TForm1.Button1Click(Sender: TObject);
const
BIT15 = 32768;
BIT1 = 1;
var
a: integer;
arret:boolean;
begin
arret:=false;
while Arret=False do begin
For a := 32 To 121 do begin
If (GetAsyncKeyState(121) And BIT15) <> 0 Then arret:=true;
If (GetAsyncKeyState(a) And BIT15) <> 0 Then begin
ListBox1.Items.Add(inttostr(a))
end;
button1.Caption:='marche';
application.ProcessMessages;
end;
end;
button1.Caption:='fini';
end;
@+
Fabs :big)
12WareSoft WebSite
Pas mal
mais quand tu appuis sur une touches, il ten met plusieurs et le prog ne sarrete pas
DelphiCool
----------
www.ProgZed.com/~delphicool
MonForum (http://forumdelphi.fr.st)
mais quand tu appuis sur une touches, il ten met plusieurs et le prog ne sarrete pas
DelphiCool
----------
www.ProgZed.com/~delphicool
MonForum (http://forumdelphi.fr.st)
>Pas mal
>mais quand tu appuis sur une touches,
>il ten met plusieurs
Logique :-)
>et le prog ne sarrete pas
Si kan tu appui sur F10(normalement) ;-)
>mais quand tu appuis sur une touches,
>il ten met plusieurs
Logique :-)
>et le prog ne sarrete pas
Si kan tu appui sur F10(normalement) ;-)
il est possible que le contenu de cette page t'intéresse :
http://perso.wanadoo.fr/fobec/Delphi/delphi_dossier04_01.htm
http://perso.wanadoo.fr/fobec/Delphi/delphi_dossier04_01.htm
