OnClick sur l'image d'un TTabSheet

Signaler
Messages postés
45
Date d'inscription
vendredi 2 juillet 2004
Statut
Membre
Dernière intervention
6 janvier 2006
-
Messages postés
1023
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
17 août 2008
-
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

Messages postés
1023
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
17 août 2008
2
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