Discussion :

[Ingham]

Bonjour à tous

J'ai un probleme avec la création d'un bouton "personnalisé", descendant de TCustomControl (donc de TWinControl, pour le focus, le handle et le doublebuffered entre autres) ... Et j'ai un probleme avec le focus ...

Je n'arrive pas à faire en sorte qu'il le prenne tout seul, le seul moyen c'est de faire un SetFocus par une autre procedure, aucun interet donc ...

J'ai essayé de rajouter le message

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
...
private
  procedure CMFocusChanged(var Msg: TMessage); message CM_FOCUSCHANGED;
...
 
procedure CMFocusChanged(var Msg: TMessage);
begin
  inherited;
  ShowMessage('FocusChanged');
  If Focused Then
    ShowMessage('Focused');
end;

Mais pareil, le code de la procedure (au complet, que ce soit avant ou apres le If) n'est appellé que part un SetFocus, jamais quand je clic sur mon bouton ... Aucun message donc ..

Par ailleurs si je pose plusieurs composants sur ma form avec mon bouton personnalisé, quand je fais tab il ne prend jamais le focus

Comment faire pour gérer le focus d'un composant maison :

Merci par avance

Ingham

Edit: En rajoutant TabStop := True dans le Create de mon composant, j'arrive a lui faire gagner le focus avec Tab, mais lorsque j'y clic dessus il ne le prend toujours pas G du rater quelque chose

[Clorish]

Ce qui m'intrigue .. c'est qu'a la base, je pense que setFocus est bien la fonction qui est appellé pour affecter le focus ... manuelement ou par le systeme.

Cela viendrais donc d'ailleur ?

[Ingham]

Je sais pas
Sinon je pourrais faire un SetFocus; dans le message MouseDown, mais ça ferait un peu trop "rafistolé avec du scotch"

Voici le type de mon bouton si ca peut aider

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
 
  TIngButton = class(TCustomControl)
  private
    { Private declarations }
    FState         : TIngBtnState;
    FExitedPressed : Boolean;
    FProperties: TIngButtonProperties;
    { Procedures }
    Procedure WMMouseEnter(Var Msg: TWMMouse); Message CM_MOUSEENTER;
    Procedure WMMouseLeave(Var Msg: TWMMouse); Message CM_MOUSELEAVE;
    procedure WMEraseBkgnd(var Msg: TWMEraseBkgnd); message WM_ERASEBKGND;
    procedure CMFocusChanged(var Msg: TMessage); message CM_FOCUSCHANGED;
    procedure SetProperties(const Value: TIngButtonProperties);
  protected
    { Protected declarations }
    Procedure Paint; Override;
    Procedure Click; Override;
    Procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Override;
    Procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Override;
    Procedure MouseMove(Shift: TShiftState; X, Y: Integer); Override;
    procedure CreateParams(var Params: TCreateParams); override;
    {Procedures persos}
    Procedure DrawBevel(cCnvs: TCanvas);
    Procedure DrawGradients(cCnvs: TCanvas);
    Procedure DrawFinalis(cCnvs: TCanvas);
    Procedure DrawText(cCnvs:TCanvas);
  public
    { Public declarations }
    Constructor Create(AOwner: TComponent); Override;
    Destructor Destroy; override;
  published
    { Published declarations }
    Property Font;
    Property Properties: TIngButtonProperties read FProperties write SetProperties;
    { Events }
    Property OnClick;
  end;

Merci pour ta réponse rapide en tout cas

[Clorish]

La je sais pas .... :/

Eventuelement .. tu n'as pas acces aux source des libs borland ? ca aide bien dans ces cas .. pour voir comment est gere le focus des boutons par exemple.

[Ingham]

Si justement, j'ai meme regardé le code source de différents boutons personnalisés comme le mien (le TJvXPButton par exemple, de la JVCL Beta 3) mais apparement pour eux le message CM_FOCUSCHANGED suffit, même pas besoin de mettre le TabStop := True

Ou alors j'ai raté quelque chose mais je sais pas quoi

Merci de t'interesser a mon probleme en tout cas

[Clorish]

Donc ca confirme ce que je supposait (qui etait assez logique en somme) : SetFocus est applé pour changer le focus d'un objet. que ce soit par toi ou par le systeme.

Tu as essayé de surcharger la MEthode SetFocus pour y ajouter ton code ?
Je suis pas un expert des messages, mais il me semble qu'une fois le message intercepté, il soit supprimé .... autrement dit je suis pas sur que 2 procedure / Fonction peuvent repondre simultanement au meme message.
Si c'est le cas, L'interception du message par ta procedure empeche le systeme de reagir au changement du focus, et seul ta procedure sera lancee.

C'est peut etre un peu vague .... :/

[Nono40]

Attention, appeler ShowMessage dans CM_FOCUSCHANGE est une très maivaise idée : car la ShowMessage va... détruire le focus de ton composant afin de le récupérer sur la fenêtre de dialogue !

Pour faire ce genre de test, pose un label sur la fiche et modifie son caption. ( on le caption de la fiche en elle-même )

[Clorish]

Effectivement ... pour eviter certains troubles du aux showmessages dans les test, j'utilise meme une ListBox pour garder la trace de plusieurs "ShowMEssages" ...

[Ingham]

Le showmessage je l'ai rajouté ici pour illustrer
Voici le vrai code de l'évenement:

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
 
procedure TIngButton.CMFocusChanged(var Msg: TMessage);
begin
  inherited;
  If Focused Then
  Begin
    FState := ibsFocused;
    Invalidate;
  End
  Else If not (FState = ibsNormal) Then
  Begin
    FState := ibsNormal;
    Invalidate;
  End;
end;

Si FState est a ibsFocused, le bouton doit afficher un contour bleu

Mais apparement ce n'est pas Windows qui gere les changements de focus, donc j'ai simplement rajouté un SetFocus dans le MouseDown (en plus du TabStop := True) et ca marche comme je veux pour l'instant

Merci a vous 2

[Nono40]

Non c'est Windows qui gère le focus... ce qui est étrange, c'est que tu aies eut besoin de de la faire à la main.