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
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
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
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
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