Discussion :

[jcs2]

Malgré plusieurs tentatives je n'arrive pas à résoudre cette question d'organisation des composants.

Dans mon application, j'ai
- une UNITE <Common> sans FICHE qui rassemble tout ce qui est commun,
- trois FICHES qui utilisent le même menu PopUP,

J'aurai aimé mettre ce menu dans <Common> et pouvoir tout simplement
faire dans les trois fiches <PopUpMenu1.Popup>;

Tout ce que j'ai pu faire pour l'instant, c'est d'avoir 3 PopUp menus identiques
et mettre dans <Common> la rédaction des <Caption> des divers verbes qui changent en fonction du contexte,
et la programmation des actions qu'entraînent ces différents verbes du menu.

Comment peut-on mettre un contrôle dans une UNITE qui n'a pas de FICHE?

[OutOfRange]

Salut

Personnellement, je dirais qu'un composant graphique (TMainMenu en fait partie) ne peut avoir qu'une fiche comme parent

Par définition, une unité sans fiche ne peut rien contenir de "visuel"

[denokan]

Tu peux essayer de déposer ton PopupMenu sur une fiche, tu devrai ensuite pouvoir l'utiliser sur d'autres fiches.
Sinon tu peux toujours le remplir dans son évènement OnPopup : dans cette exemple je l'alimente par rapport au contenu de ma ListBox, mais tu peux imaginer n'importe quoi

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
procedure TForm1.pairClick(Sender: TObject);
begin
  ShowMessage('Vous avez cliqué le pair : ' + (Sender as TMenuItem).Caption);
end;
 
procedure TForm1.impairClick(Sender: TObject);
begin
  ShowMessage('Vous avez cliqué l''impair : ' + (Sender as TMenuItem).Caption);
end;
 
procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
  i : Integer;
  mi : TMenuItem;
begin
  PopupMenu1.Items.Clear;
 
  for i := 0 to ListBox1.Count - 1 do begin
    mi :=TMenuItem.Create(Sender as TPopupMenu);
    mi.Caption := ListBox1.Items[i];
    (Sender as TPopupMenu).Items.Add(mi);
    if Odd(i) then
      mi.OnClick := pairClick
    else
      mi.OnClick := impairClick;
  end;
end;

[sjrd]

Il y a les Data Module qui sont prévus pour ce genre de comportement. Crées-en un et place ton TPopupMenu dessus, que tu configures. Ensuite, dans tes fiches, tu ajoutes l'unité contenant ton data set à la clause uses. Tu peux finalement associer le popup menu créé à la propriété PopupMenu de tes composants sur tes fiches.

@OutOfRange : TMainMenu et TPopupMenu ne sont pas des composants graphiques ! Ils ajoutent un élément graphique aux fiches/composants qui les références via les propriétés appropriées, mais ils ne sont pas eux-mêmes graphiques.

[jcs2]

Merci à tous,

SJRD me donne la solution parfaite.
Je n'avais pas remarqué que l'on pouvait mettre des menus y.c. les popup menus dans un module de données.
Margré des milliers de lignes de code déjà écrites en Delphi, on en apprend tous les jours grâce à ce forum.