Discussion :

[bubulemaster]

Bonjour,

j'ai créé un bouton graphique dérivant d'un TGraphicControl. Je voudrais qu'il y ait un événement Enter et Exit pour dessiner le Focus rectangle dessus. J'ai cherché mais je n'ai rien trouvé.

J'ai lu sur un autre site :

TGraphicControl : Sert pour les composants visuels en non intéraction avec les messages de Windows. Ces composants ne sont pas fenêtrés (ils n'ont pas de Handle) et Windows ne les considère donc pas comme une fenêtre. Ces composants ne peuvent pas recevoir de focalisation et l'utilisateur n'ayant pas de souris (imaginons !) ne pourra jamais cliquer dessus. Ils prennent peu de mémoire et sont utiles pour faire des affichages au sein de composants simples.

Il faudrait donc que mon objet soit dérivé d'un TCustomControl mais le problème c'est que si on passe la souris par dessus rien ne se passe et il n'ai pas transparent.

Donc, deux choix possible. Soit j'arrive à gérer le Enter ou Exit (mais ça semble impossible), soit j'arrive à faire un TCustomControl tansparent (mes essais ont échoué ?!?!) et gérer les mouses Over.

Avez-vous des idées ?

Merci

[ShaiLeTroll]

La Transparence d'un TCustomControl est faisable, exemple, les fenêtres avec AlphaBlendValue ... tu devrais étudier le code du TSpeedButton, qui est un TGraphicControl, il exploite la capacité d'un parent à dispatcher les messages qu'il reçoit a ses enfants ... ou un truc du genre ...

[bubulemaster]

Dans delphi le SpeedButton ne reçoit pas le focus par clavier car in dérive d'un TGraphicControl.

J'ai trouvé une parade, mais ce n'est pas très élégant.
Je créer un TButton :

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
 
constructor TImageButton.Create(Component: TComponent);
begin
    inherited Create(Component);
 
    ...
 
    MonButton := TButton.Create(Self) ;
    MonButton.Parent := TWinControl(Owner) ;
    MonButton.Width := 0 ;
    MonButton.Height := 0 ;
    MonButton.OnEnter := ButtonEnter ;
end ;
 
destructor TImageButton.Destroy;
begin
    MonButton.Free ;
 
    ...
 
    inherited Destroy;
end;

Ici j'ai trouvé une solution http://www.coding-board.de/board/showthread.php?t=3912

Mais quand on passe dessus le contrôle, le fond s'efface !

[ShaiLeTroll]

Oui, Enter et Exit, via par exemple, la tabulation ou le enter sur un bouton en Default ...

Hum, je pensais au click seulement, pas au clavier ... en dérivant un TBitBtn, en surchargeant la méthode de message CNDrawItem, tu pourrait demander au parent (si c'est un TWinControl) de faire un PaintTo dans un Canvas interne à ton objet, et ensuite, tu fais toi même ta gestion de la transparence ... en fait, il va relancer le DrawItem, donc il faut marquer un flag pour ne pas redessiner ton propre objet pour récupérer ce qu'il y a derrière ...bonne uzinagaz ...)