Discussion :

[Bernard B]

Bonjour,
J'ai un fiche (delphi 10.1, pb sous windows 10, 8,7...) avec des TSpeedButton, des TButton et un TImageViewer de la GR32.
Le but est d'afficher des photos et de changer de photo par les TButtons. Jusque là pas de soucis !
Ayant un bouton image suivante et un image précédente, j'ai voulu utiliser en plus ou en parallèle des boutons les flèches du clavier.
Pour cela j'ai mis le KeyPreview de la fiche à True et j'ai traité les touches des flèches dans le OnKeyDown.
Cela ne fonctionne pas : l'appui sur les les flèches change le TButton qui a le focus et le OnKeyDown ne part pas.
Dans un autre mode de fonctionnement de cette fiche (diaporama) je masque le Panel qui contient tous les TButtons et miracle OnKeyDown fonctionne.
Si je ré-affiche mes TButtons, tant que je n'en ai pas cliqué un, le OnKeyDown est OK des que j'ai cliqué sur un des boutons, l'événement ne part plus !!

Comment puis-je faire ?
Merci

[Charly910]

Bonjour,

J'ai fait un exemple simple en D7 et je ne rencontre pas le problème (mais je n'ai peut être pas tout saisi ...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons;
 
type
  TForm1 = class(TForm)
    Btn_Precedent: TSpeedButton;
    Btn_Suivant: TSpeedButton;
    procedure Btn_PrecedentClick(Sender: TObject);
    procedure Btn_SuivantClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
{ =============================================================== }
procedure TForm1.Btn_PrecedentClick(Sender: TObject);
begin
   ShowMessage('Photo précédente') ;
end;
{ =============================================================== }
procedure TForm1.Btn_SuivantClick(Sender: TObject);
begin
  ShowMessage('Photo suivante') ;
end;
{ =============================================================== }
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key=VK_RIGHT) then
  begin
    Btn_SuivantClick(Self) ;
  end;
if (Key=VK_LEFT) then
  begin
    Btn_PrecedentClick(Self) ;
  end;
end;
{ =============================================================== }
end.

Les touches clavier et les SpeedButtons répondent parfaitement.

A+
Charly

[Bernard B]

Effectivement je n'ai pas été assez clair.
Le pb n'est pas lié aux speedbuttons qui sont sur la form mais aux TButtons.
Les speedbuttons servent à d'autres besoins (affichages des exif ....) et les TButtons pour avancer ou reculer.
Par contre ta remarque peut être pertinente, il suffirait peut être que je remplace les TButtons par des TSpeedButtons. J'essaierais ce soir !

[Charly910]

Bonjour,

j'ai remplacé les TSpeedbuttons par des TButtons et cela fonctionne bien de la même façon, à condition de neutraliser la tabulation : il faut mettre Tabstop à False pour les 2 boutons.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;
 
type
  TForm1 = class(TForm)
    Btn_Precedent: TButton;
    Btn_Suivant: TButton;
    procedure Btn_PrecedentClick(Sender: TObject);
    procedure Btn_SuivantClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
{ =============================================================== }
procedure TForm1.Btn_PrecedentClick(Sender: TObject);
begin
   ShowMessage('Photo précédente') ;
end;
{ =============================================================== }
procedure TForm1.Btn_SuivantClick(Sender: TObject);
begin
  ShowMessage('Photo suivante') ;
end;
{ =============================================================== }
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key=VK_RIGHT) then
  begin
    Btn_SuivantClick(Self) ;
  end;
if (Key=VK_LEFT) then
  begin
    Btn_PrecedentClick(Self) ;
  end;
end;
{ =============================================================== }
end.

Essaye mon exemple pour voir (Form1, Btn_Precedent et Btn_Suivant avec TabStop à False)

A+
Charly

[Charly910]

Autre possibilité, tu peux utiliser les évènements OnEnter des TButtons :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
{ =============================================================== }
procedure TForm1.Btn_SuivantEnter(Sender: TObject);
begin
   ShowMessage('Photo suivante - On Enter') ;
end;
{ =============================================================== }
procedure TForm1.Btn_PrecedentEnter(Sender: TObject);
begin
   ShowMessage('Photo précédente - On Enter') ;
end;
{ =============================================================== }

Cela évite de mettre les TabStop à False

A+
Charly

[Bernard B]

OK Charly le pb est bien sur le TabStop.
J'ai remplacé les TButton par des TSpeedButton et j'ai bien le fonctionnement recherché.
Effectivement le fait de mettre le TabStop à False fait la même chose.
Ton idée de se servir du OnEnter je n'y avait pensé ! A garder en mémoire. On y pense (moi j'y pense) plus tôt pour les composants de saisie de texte que pour les boutons.

Merci de ton aide. Problème résolu !!
Bernard