Discussion :

[kodiac_99]

Bonjour!

Voici mon problème: Je veux donner à l'utilisateur l'opportunité de créer de nouveaux onglets qui contient chacune un Objet TGroupBox qui lui contient un objet TImage et associer à cette dernière des évènement. voici mon code :

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
  TTabSheet *Page;
  TScrollBox *SBox;
  TImage *Image;
 
  FInfNiveau->ShowModal();
  if(FInfNiveau->ModalResult == mrOk)
    {
      TTabSheet *Page;
      TScrollBox *SBox;
      TImage *Image;
 
      Page = new TTabSheet(this);
      Page->Parent = FPrincipal->TabNiveau;
      Page->PageControl = FPrincipal->TabNiveau;
      Page->Caption = FInfNiveau->EName->Text;
      Page->Name = "P" + IntToStr(FPrincipal->TabNiveau->PageCount);
      Page->Caption = FInfNiveau->EName->Text;
 
      SBox = new TScrollBox(this);
      SBox->Parent = Page;
      SBox->Align = alClient;
      SBox->Color = clBtnShadow;
 
      Image = new TImage(this);
      Image->Parent = SBox;
      Image->Align = alClient;
      Image->Align = alNone;
      Image->Transparent = true;
      Image->OnMouseMove = PlanMouseMove;

Pour la première Image dans le premier Onglet créé l'évènement se produit sans problème, mais quand je sélectionne le deuxième onglet là plus rien, il n'y a plus d'évènement qui se produit quand je promène la souris au-dessus.

Qu'est-ce que je fais de pas correct ?????

Merci à l'avance

kodiac
Merci de penser aux balises code

[Sunchaser]

Bonsoir,
Juste pour info, qu'est ce qu'il y a dans le 'PlanMouseMove' ?

@ +

[kodiac_99]

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
void __fastcall TFPrincipal::PlanMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
TImage *Image = (TImage *) Sender;
AnsiString CoordonneeX;
AnsiString CoordonneeY;
 
if(Echelle > 0)
  {
     CoordonneeX = FormatFloat("0",(X  - MARGEGAUCHE) / Echelle);
     CoordonneeY = FormatFloat("0",(Y - MARGEHAUT) / Echelle);
     if(CoordonneeX.ToInt() >= 0 && CoordonneeY.ToInt() >= 0)
       FPrincipal->StatusBar1->Panels->Items[1]->Text = CoordonneeX + " - " + CoordonneeY;
  }
}

[Sunchaser]

Dis moi...je pense que tu as vérifié mais, n'est ce pas un problème dans les coordonnées que tu cites, telle que la variable 'Echelle' qui conditionne qqchose...?

[kodiac_99]

Non car Echelle est une variable global initialisé à 1 pour l'instant. Mon problème se situe quand je sélectionne la 2ième feuille du TabControl, l'évènement est ignoré quand je pointe la souris sur l'image de cette page ..

[kodiac_99]

Je me devais de déclarer les variables TImage, TGroupBox et TPage Global

Merci