OnClick sur l'image d'un TTabSheet

Question

Sujet Précédent Sujet Suivant

OnClick sur l'image d'un TTabSheet

Signaler

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)

A voir également:

Jbutton onclick
Onmousedown - Meilleures réponses
Tuto photoshop d butant - Meilleures réponses
Onclick sur image et enregistrement fichier texte (php) ✓ - Forum - PHP
Obtenir les coordonnées de plusieurs images après un onclick type button ✓ - Forum - Javascript / DHTML
Débutant - Affichage d'une image différente selon 2 onclick ✓ - Forum - Javascript / DHTML
Images et onClick ✓ - Forum - PHP
Encadré image après Onclick ✓ - Forum - Javascript / DHTML

1 réponse

Répondre Posez votre question

florenth · Answer 1 · 2005-07-02T21:18:05+0200

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

Votre réponse