[Lazarus] [Linux] Intercepter l'appui sur une touche du clavier [Résolu]

[winow]

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

if(Key==('C'))

il y avait aussi

Code C :

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+

[SergioMaster]

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;

[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

[SergioMaster]

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

[winow]

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+

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

[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