Discussion :

[Invité]

Bonjour,

J'ai une question : Est-il possible de faire un clik gauche sur un TShape ? Car d'apres ce que j'ai vu, on peut seulement faire un click droit.

Voici un bout de code qui me pose mon second probleme :

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
	for (int PosV = 0; PosV < MaxV; PosV++)
	{	for (int PosH = 0; PosH < MaxH; PosH++)
		{	ColorNo[PosH][PosV] = new TShape (this);
			ColorNo[PosH][PosV]->Parent = this;
 
			ColorNo[PosH][PosV]->Left = InitH + PosH * (LargBt + EspaceHor);
			ColorNo[PosH][PosV]->Top  = InitV + PosV * (HautBt + EspaceVert);
			ColorNo[PosH][PosV]->Width  = LargBt;
			ColorNo[PosH][PosV]->Height  = HautBt;
			ColorNo[PosH][PosV]->Pen->Width = 1;
			ColorNo[PosH][PosV]->Shape = stCircle;
			ColorNo[PosH][PosV]->Brush->Color = ColorTab[j];
			ColorNo[PosH][PosV]->Name = "ColorNo" + IntToStr(InitH+j);
			ColorNo[PosH][PosV]->OnContextPopup = ShapeContextPopup;
			ColorNo[PosH][PosV]->Show();
			j++;
		}
 
	}

Je voudrais lui mettre dans le OnContextPopup ma fonction. Voici ma fonction :

Code :

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

1
2
3
4
5
void __fastcall TForm1::ShapeContextPopup(TObject *Sender, TPoint &MousePos,
	  bool &Handled)
{
  ShowMessage("test");
}

Elle est déclaré dans le .h :

Code :

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

1
2
3
4
5
6
7
8
public:		// Déclarations utilisateur
	__fastcall TForm1(TComponent* Owner);
		 		  TShape *ColorNo[10][10];
 
			void __fastcall TForm1::CreerSelection(int InitH, int InitV, int HautBt, int LargBt, int EspaceHor, int EspaceVert,int MaxV, int MaxH);
		void __fastcall TForm1::ShapeContextPopup(TObject *Sender, TPoint &MousePos,
		  bool &Handled);
		};

Mais j'ai une jolie erreur...

Code :

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

[BCC32 Erreur] ufmMain.cpp(72): E2034 Impossible de convertir 'void (_fastcall * (_closure )(TObject *,TPoint &,bool &))(TObject *,TPoint &,bool &)' en 'TContextPopupEvent'

Une idée du problème ?

[pottiez]

Bonjour,

J'ai une question : Est-il possible de faire un clik gauche sur un TShape ? Car d'apres ce que j'ai vu, on peut seulement faire un click droit.

Regarde du coté des évènements OnMouseDown et OnMouseUp du TShape, le paramètre button de ces évènements te spécifie quel bouton de la sourie à été cliqué

Voici un bout de code qui me pose mon second probleme :

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
    for (int PosV = 0; PosV < MaxV; PosV++)
    {    for (int PosH = 0; PosH < MaxH; PosH++)
        {    ColorNo[PosH][PosV] = new TShape (this);
            ColorNo[PosH][PosV]->Parent = this;
 
            ColorNo[PosH][PosV]->Left = InitH + PosH * (LargBt + EspaceHor);
            ColorNo[PosH][PosV]->Top  = InitV + PosV * (HautBt + EspaceVert);
            ColorNo[PosH][PosV]->Width  = LargBt;
            ColorNo[PosH][PosV]->Height  = HautBt;
            ColorNo[PosH][PosV]->Pen->Width = 1;
            ColorNo[PosH][PosV]->Shape = stCircle;
            ColorNo[PosH][PosV]->Brush->Color = ColorTab[j];
            ColorNo[PosH][PosV]->Name = "ColorNo" + IntToStr(InitH+j);
            ColorNo[PosH][PosV]->OnContextPopup = ShapeContextPopup;
            ColorNo[PosH][PosV]->Show();
            j++;
        }
 
    }

Je voudrais lui mettre dans le OnContextPopup ma fonction. Voici ma fonction :

Code :

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

1
2
3
4
5
void __fastcall TForm1::ShapeContextPopup(TObject *Sender, TPoint &MousePos,
      bool &Handled)
{
  ShowMessage("test");
}

Elle est déclaré dans le .h :

Code :

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

1
2
3
4
5
6
7
8
public:        // Déclarations utilisateur
    __fastcall TForm1(TComponent* Owner);
                   TShape *ColorNo[10][10];
 
            void __fastcall TForm1::CreerSelection(int InitH, int InitV, int HautBt, int LargBt, int EspaceHor, int EspaceVert,int MaxV, int MaxH);
        void __fastcall TForm1::ShapeContextPopup(TObject *Sender, TPoint &MousePos,
          bool &Handled);
        };

Mais j'ai une jolie erreur...

Code :

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

[BCC32 Erreur] ufmMain.cpp(72): E2034 Impossible de convertir 'void (_fastcall * (_closure )(TObject *,TPoint &,bool &))(TObject *,TPoint &,bool &)' en 'TContextPopupEvent'

Une idée du problème ?

Serait-il possible que se soit du fait que ton TPoint ne soit pas déclaré en const ? En tout cas pour le moment c'est la seul différence que je vois.