Discussion :

[kabish]

Salut à tous,
J'aimerais pouvoir gérer l'évèment OnClick d'un objet de type TImage pendant l'exécution de mon application.
Pour résumer, je développe une petite application qui affiche les poste en réseaux, j'aimerais pouvoir à l'éxécution cliquez sur l'image représentant un poste donné.
Merci pour votre aide

[philnext]

?? pas très clair : TImage a déja un event 'OnClick'.
TU veux faire quoi exactement ?

[kabish]

Je souhaite dessiner tous les postes en réseaux avec le mien.
Les images n'existent donc pas en conception.

* J'ai d'abord défini un type :

Code :

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

1
2
3
4
5
6
7
8
9
  TImagePC = class(TImage)
     PCLabel: TLabel;
  private
    { Déclarations privées }
    destructor Destroy; override;
  public
    constructor Create(Owner: TComponent); override;
    { Déclarations publiques }
  end;

*les images sont créées à l'exécution grace à la procédure qui suit:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure DrawAlert(Const pRowNum, pColNum : Integer;Const pPCIP, pPCName,pImage : String);
Var
  img        : TImagePC;
begin
   try
       img                 := TImagePC.Create(MainForm.PCPanel);
       if (pRowNum = 1) and (pColNum = 1) then gFirstPC := Img;
       img.Parent       := MainForm.PCPanel;
       img.Top           := GetPCTop(pRowNum);
       img.Left           := GetPCLeft(pColNum);
       img.Width        := WPC;
       img.Height       := HPC;
       img.Picture.LoadFromFile(pImage);
       img.PopupMenu := MainForm.PopMPC;
       img.Stretch      := true;
       img.Cursor        := crHandPoint;
       img.DragMode   := dmAutomatic;
       img.Name         := pPCIP;
 
      //Affichage du Nom
      img.PCLabel.Top      := img.Top + HPC +E;
      img.PCLabel.Left      := img.Left;
      img.PCLabel.Parent   := MainForm.PanelPC;
      img.PCLabel.Caption  := Copy(pPCName,1,15);
      img.PCLabel.Height   := H;
      img.PCLabel.Width    := (WPC+ ESP_H) - 10;// Doit s'arrêter à 10 Pixel avant l'objet suivant
      img.PCLabel.WordWrap := true;
 
 
       //Evènements supportés
      img.OnClick      := MainForm.ImageClick;
   except on E : Exception   do
          SaveMsgToFileText('UUtils.DrawPC',E.Message,gVERSION,gEDITION,gLOWSEVERITY);
   end;
end;

*Et je souhaite que le click sur ses images exécute la procédure

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TMainForm.ImageClick(Sender: TObject);
var
  vImage        : TImagePC;
begin
  if Sender.ClassType = TImagePC then
    begin
        vImage    := Sender As TImagePC;
        UpdateFocus(vImage);
    end;   
end;

Mais rien ne s'éxécute, même quand je met un simple showmessage . Merci de votre aide

[Rayek]

As tu mis des points d'arret et fait un pas à pas de ton code ?

PS: Merci de penser à utililser les balises de code pour le bout de source.

[kabish]

Merci à tous pour l'aide.

Malatar : Oui, j'ai mis des points d'arrêt, mais le click sur mes images n'exécute pas du tout ma procédure.

J'ai fini par réussir à faire ce que je souhaitais en passant par les évènements OnDragDrop et OnDragOver

Code :

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

1
2
3
4
 
       //Evènements supportés
      img.OnDragOver   := MainForm.ImageDragOver;
      img.OnDragDrop   := MainForm.ImageDragDrop;

les codes exécuter sont respectivement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TMainForm.ImageDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := (Sender is TImage);
end;
 
procedure TMainForm.ImageDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
    if Sender = Source then
      UpdateFocus((Sender As TImageAlert));
end;

ça marche bien mais j'aimerais tout de même comprendre pourquoi mon évènement OnClick ne s'exécute pas