High-Tech
Santé-Médecine
Droit-Finances
CodeS-SourceS
Inscription
Plan
Connexion
Rechercher un code, un tuto, une réponse
Accueil
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Tous les langages
Delphi / Pascal
Java
Python
SQL
RegEx
Flash
ASM
IRC
Graphisme
PDA
ColdFusion
Foxpro
Flex
Visual Basic / VB.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
PHP
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C/C++/C++.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Javascript
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C#/.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
ASP/ASP.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Accueil
Connexion
Déposer un code
Code
Recherche
Haut
Accueil
Forum Codes-Sources
Delphi / Pascal
Sujet Précédent
Sujet Suivant
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)
Afficher la suite
A voir également:
Onclick delphi
Delphi format
-
Conseils pratiques -Delphi
Input onclick
✓
-
Forum Javascript / DHTML
Div onclick
✓
-
Forum Javascript / DHTML
Onclick display none
✓
-
Forum Javascript / DHTML
Delphi thread
-
Conseils pratiques -Delphi
1
réponse
Réponse 1 / 1
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
Votre réponse
Rejoignez-nous
A voir également
Fonction Pos().
Parametre de ShellExecute
Décompiler un EXE Delphi
Manipulation avec FormatDateTime
[Delphi] développer des classes