Discussion :

[Caine]

Bonjour,

J'ai un petit souci, je souhaite personnaliser le popup menu de chaque colonnes d'un TStringGrid.

Je me suis fait ce premier jet pour tester la faisabilité, il marche très bien:

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
36
37
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cols[0].Add('Premier');
  StringGrid1.Cols[1].Add('Deuxième');
  StringGrid1.Cols[2].Add('Troisième');
  StringGrid1.Cols[3].Add('Quatrième');
  StringGrid1.Cols[4].Add('Cinquième');
 
  //Construction des menus déroulant.
  StringGrid1.Objects[0,0] := newPopupMenu(Self,'First',paLeft,True,[NewItem('Premier',TextToShortCut(''),False,True,nil,0,'Item1')]);
  StringGrid1.Objects[1,0] := newPopupMenu(Self,'Two',paLeft,True,[NewItem('Deuxième',TextToShortCut(''),False,True,nil,0,'Item1')]);
  StringGrid1.Objects[3,0] := newPopupMenu(Self,'three',paLeft,True,[NewItem('Quatrième',TextToShortCut(''),False,True,nil,0,'Item1')]);
end;
 
procedure TForm1.StringGrid1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
Var
   CurrCol,CurrRow: Integer;
begin
If Not (Sender is TStringGrid) Then
   Exit;
With Sender as TStringGrid Do
     Begin
     MouseToCell(MousePos.X,MousePos.Y,CurrCol,CurrRow);
     Case CurrCol Of
     0:
       PopupMenu := (Objects[CurrCol,0] as TPopupMenu);
     1:
       PopupMenu := (Objects[CurrCol,0] as TPopupMenu);
     3:
       PopupMenu := (Objects[CurrCol,0] as TPopupMenu);
     Else
         PopupMenu := nil;
     End;    
     End;
end;

Le problème: Il faudrait que je créais tout les Popup à la main! Outre que c'est pénible, je voudrais pouvoir utiliser un Popup inséré sur la fiche lors du design de l'appli.

Code :

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

1
2
 
  StringGrid1.Objects[0,0] := PopupMenu1;

Mais voilà, dans ce cas là, ça ne marche plus!

Si vous avez déjà eu le cas, merci pour votre aide.

[Caine]

Bon, définitivement, je ne vois pas la cause.

TPopupMenu étant un descendant de Tobject, il ne doit pas y avoir de problème à le stocker dans la partie Objects d'un TsringGrid !

[LadyWasky]

Ben si, chez moi, ça marche.

Voici mon code (tu remarqueras que j'ai modifié la procedure TForm1.StringGrid1ContextPopup) :

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
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cols[0].Add('Premier');
  StringGrid1.Cols[1].Add('Deuxième');
  StringGrid1.Cols[2].Add('Troisième');
  StringGrid1.Cols[3].Add('Quatrième');
  StringGrid1.Cols[4].Add('Cinquième');
 
  //Construction des menus déroulant.
  StringGrid1.Objects[0,0] := newPopupMenu(Self,'First',paLeft,True,[NewItem('Premier',TextToShortCut(''),False,True,nil,0,'Item1')]);
  StringGrid1.Objects[1,0] := newPopupMenu(Self,'Two',paLeft,True,[NewItem('Deuxième',TextToShortCut(''),False,True,nil,0,'Item1')]);
  StringGrid1.Objects[3,0] := newPopupMenu(Self,'three',paLeft,True,[NewItem('Quatrième',TextToShortCut(''),False,True,nil,0,'Item1')]);
  StringGrid1.Objects[2,0] := PopupMenu 1; //celui là à été créé sur la fiche
end;
 
procedure TForm1.StringGrid1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
Var CurrCol,CurrRow: Integer;
begin
  If Not (Sender is TStringGrid) Then Exit;
  With Sender as TStringGrid Do
     Begin
       MouseToCell(MousePos.X,MousePos.Y,CurrCol,CurrRow);
      PopupMenu := (Objects[CurrCol,0] as TPopupMenu);
     End;
end;

[Caine]

Merci beaucoup, ça marche!!

Donc, ça vient surement du code de l'appli! Mais au moins ça confirme que c'est bien faisable

Mais, une question me trotte dans l'esprit, lors de l'assignation à Objetcs, c'est une recopie de l'objet ? Ou une référence ?

Ha voilà ce que c'est les développements le soir après le boulot sur un autre outil

[LadyWasky]

Mais, une question me trotte dans l'esprit, lors de l'assignation à Objetcs, c'est une recopie de l'objet ? Ou une référence ?

non, il n'y a pas de recopie de l'objet, c'est la référence qui est recopiée.

En gros La "variable" PopupMenu1 est un pointeur (une adresse mémoire donc) sur un objet TPopupMenu. Ca vaut pour toutes les classes d'objets.

D'ailleurs, c'est pour ça que l'on peu écrire par exemple :

Code :

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

PopupMenu1 :=nil;

...nil étant réservé au pointeurs.

les référence objects comme StringGrid1.Objects[2,0] sont aussi des pointeurs vers des objets TObjects.

donc si tu as fait :

Code :

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

1
2
3
 
StringGrid1.Objects[2,0] := PopupMenu1; 
PopupMenu1:=nil;

...L'objet PopupMenu n'est pas détruit, il existe toujours en mémoire et sa référence reste accesible par StringGrid1.Objects[2,0]

Par contre si tu fais :

Code :

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

1
2
3
 
StringGrid1.Objects[2,0] := PopupMenu1; 
PopupMenu1.free;

...L'objet PopupMenu est bel et bien détruit, et la référence stockée dans StringGrid1.Objects[2,0] pointe sur n'importe quoi !

Si tu as besoin d'eclaircissements sur les pointeurs j'ai rédigé un pseudo tuto sur le forum, ici :
http://www.developpez.net/forums/vie...ight=pointeurs