[Linux] Intercepter l'appui sur une touche du clavier

Version imprimable

27/02/2010, 22h06
winow

[Linux] Intercepter l'appui sur une touche du clavier

Bonjour

Comment simuler l'appui sur une touche du clavier sous Linux,
sous bcb6 il y avait GetKeyState mais ce n'est que sous Windows apparemment.

il y avait aussi sous BCB6

Code:

if(Key==('C'))

il y avait aussi

Code:

if(Key=='VK_SPACE'))

Je n'ai pas pu les faire marcher sous Linux car le suis sous Ubuntu uniquement.

Où pourrais-je avoir les codes touches pour clavier sous Linux ?

Merci A+

Code:

if (key=VK_SPACE)

fonctionne très bien, cependant tu parles de "simuler" une touche donc je présume que ta question est plus complexe que cela ..

donc : un autre exemple tiré des sources dispo , sur un évènement onKeydown
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TCustomCheckListBox.KeyDown(var Key: Word; Shift: TShiftState); var Index: Integer; begin if (Key = VK_SPACE) and (Shift=[]) then begin Index := ItemIndex; Checked[Index] := not Checked[Index]; ItemClick(Index); Key := VK_UNKNOWN; end else inherited KeyDown(Key,Shift); end;

28/02/2010, 10h10
winow
Merci SergioMaster et merci pour l'aide.

Moi j'avais trouvé cela:
Code:

1 2 3 4 5 6 7 8 9 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState ); begin if Key=Word('C') then begin ShowMessage('touche C'); end; end;
Les erreurs:
1 Si on pose un Button ou autres sur la form, ca marche plus ?
2 Ca ne différencie pas les majuscule et les minuscules.
3 Linux ne comprend pas VK_xxx ou alors il faut rajouter un uses ?

Je vais essayer de comprendre le code que tu ma passé et voir ce que je peut faire ?

Merci :ccool:
28/02/2010, 12h21
SergioMaster

oui , il y a un uses , LCLTypes si mes souvenirs sont bons
[edit] et ils sont bons :D je ne suis pas encore touché par Alzheimer :lol:

Impect Merci SergioMaster

Il reste plus que un seul problème c'est que si je met un composant dans la form le code ne marche plus ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
implementation
 
{ TForm1 }
 
 uses LCLtype;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
  var vkKey:Word;
begin
  if(Key='C') then
    begin
      ShowMessage('Touche C');
    end;
 
    vkKey:=Word(Key);
  if(vkKey=VK_SPACE) then
    begin
      ShowMessage('Touche espace');
    end;
end;

Merci A+

28/02/2010, 16h18
winow

c'est bon, j'ai trouvé,
il fallait simplement mettre (KeyPreview) de Form1 a (true)

A+ et Merci SergioMaster pour l'aide que tu ma apporté :ccool:
28/02/2010, 20h08
winow

En fait le titre du message ne correspond pas trop,
pas simuler mais pluto intercepter l'appuie sur une touche du clavier, je crois