Discussion :

[Lusso]

Bonjour,

J'utilise un TScrollBox pour afficher des TImage de façon dynamique sur une colonne, j'ai évidemment un ascenseur.

Je me suis déclaré une procédure gérant le double click sur un TImage, par contre, je voudrais ( dans cette procédure ) identifier le TImage sur lequel le double click a été fait.

J'ai bien essayé de récupérer les coordonnées de la souris au moment du double click, mais ils ne prennent pas en compte l'ascenseur.

Et là, je coince.

Quelqu'un aurait-il une idée ?

Par avance, merci.

A+
Lusso

[MD Software]

Il faut que ta procédure gérant le double click soit membre de la classe TImage. Ainsi, tu auras son instance.

[Lusso]

Il faut que ta procédure gérant le double click soit membre de la classe TImage. Ainsi, tu auras son instance.

Arghhh !!! Désolé, mais là, c'est un peu obscur pour moi. Tu n'aurais pas un exemple ?

[MD Software]

Montre, si tu peux, ta procedure gérant le doubleClic

[Lusso]

Déclaration de la fiche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type
  TF_Galerie = class(TForm)
    B_Ajouter: TButton;
    B_Fermer: TButton;
    ZoneImages: TScrollBox;
    OpenDialog1: TOpenDialog;
    L_NomFic: TLabel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure B_FermerClick(Sender: TObject);
    procedure B_AjouterClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure DoubleClickSurVignette  (Sender: TObject);
  end;

Code de la procédure générique sur le double click :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Procedure TF_Galerie.DoubleClickSurVignette  (Sender: TObject);
var
  Position: TPoint;
Begin
  GetCursorPos(Position);
  Showmessage('Les coordonnées de la souris sont X: ' +
               IntToStr(Position.X) + ' et Y: ' + IntToStr(Position.Y));
  Fiche_Photo := 'M';
  F_Photo.ShowModal;
End;

Et sur l'activate de F_Galerie ( de type TF_Galerie ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
      {--- création du TImage qui contiendra la vignette à afficher -----------}
      MVig            := TImage.Create(Self);
      MVig.Parent     := ZoneImages;
      MVig.AutoSize   := FALSE;
      MVig.Width      := TailleTImage;
      MVig.Height     := TailleTImage;
      MVig.Center     := FALSE;
      MVig.Hint       := BufGalerie.DatPhoto+#13+
                         BufGalerie.NomPhoto+#13+
                         BufGalerie.ComPhoto ;  // la bulle contient le nom du fichier
      MVig.ShowHint   := TRUE;
      MVig.Visible    := TRUE;
      MVig.Top        := Top;
      MVig.Left       := Left;
      MVig.OnDblClick := DoubleClickSurVignette;

Voilà, j'espère que les portions de code sont suffisantes ;o)

[MD Software]

C'est très bien tout ça.
Tu as déjà toutes les informations. Le Sender représente [l'intance de] ton TImage. Par exemple, pour masquer l'image qui a été double-cliquée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Procedure TF_Galerie.DoubleClickSurVignette  (Sender: TObject);
Begin
  //Masque la vignette
  (Sender as TImage).hide;
End;

[Lusso]

Super, merci pour ta réponse. Je me plonge dans le code dès ce soir

[Lusso]

Pas pu attendre ce soir. J'ai essayé et mon pbm est résolu. Encore merci