OnClick sur l'image d'un TTabSheet

Léobaillard Messages postés 45 Date d'inscription vendredi 2 juillet 2004 Statut Membre Dernière intervention 6 janvier 2006 - 1 juil. 2005 à 22:20
florenth Messages postés 1023 Date d'inscription dimanche 1 août 2004 Statut Membre Dernière intervention 17 août 2008 - 2 juil. 2005 à 21:18
Bonjour, je voudrais savoir s'il est possible d'attribuer un évènement à un click sur l'image d'un TTabSheet ? Merci beaucoup !

/// (: Léo :) \\\


http://pmetleo.free.fr/ (Jeux et dessins)

1 réponse

florenth Messages postés 1023 Date d'inscription dimanche 1 août 2004 Statut Membre Dernière intervention 17 août 2008 2
2 juil. 2005 à 21:18
Tu peux utiliser l'evenement OnMouseDown de la fihce en faisant un test:

if not (ssLeft in Shift) then

Exit;



Mais cela ne correspond pas vraiment à un click.



Sinon, tu peux mettre un Boolean déclaré en global à True dans l'evenement OnMouseDown , et dans l'évenement OnMouseUp tu mets:

<hr size= "2" width="100%">var

Clique: Boolean;



procedure TForm1.TabSheetMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Clique := ssLeft in Shift;

end;



procedure TForm1.TabSheetMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

{ Gestion de la variable Clique déclarée en global. }

if not Clique then

Exit;

Clique : = False;

{ Gestion du click. }

end;

<hr size="2" width="100%">@ ++

Florent



Si tu ne te plantes pas ......
tu ne poussera jamais
0
Rejoignez-nous