Problemes de création en exécution

Version imprimable

Je créé des composants en execution et doit leur adjoindre un popupmenu a chacun donnant la possibilité de supprimer le composant en question. La création de composant ne pose pas de problème; c'est la gestion du popup menu qui me pose problème : Comment savoir que je dois detruire tel composant et pas un autre ?

Le 2eme problème : comment connaitre la position de la souris (coordonnée X et Y) sur ma fiche et non pas sur le bureau.

LE CODE :
=======

Creation du composant et du menu associé
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 procedure TForm1.SpeedButton2Click(Sender: TObject); begin xe := xe+1; MonEdit := Tedit.Create(Self); MonEdit.Parent := Form2; MonEdit.Left := 0; MonEdit.Top := 0; MonEdit.DragKind := dkDock; MonEdit.DragMode := dmAutomatic; MonEdit.OnClick := Supprfonction2; MonEdit.Name := 'monedit'+(InttoStr(xe)); popmenu := TPopupmenu.create(self); MyItem[i] := TMenuItem.Create(Self); MyItem[i].Caption := 'Configurer '+'monedit'+(InttoStr(xe)); MyItem[i].OnClick := Supprfonction; popmenu.Items.Add(MyItem[i]); popmenu.name := 'monedit'+(InttoStr(xe))+'pop'; Monedit.popupmenu := popmenu; end;
Le menu :
Code:

1 2 3 4 5 6 procedure TForm1.SupprFonction2(Sender: TObject); begin ShowMessage('Appui sur le bouton :'+(IntToStr(TButton(Sender).tag))); Free; end;

29/06/2004, 15h10
Pascal Jankowski

Ajoute peut-être une propriété tag à tes composants. Lors de la création de ceux-ci instruits la propriété tag avec une valeur entière issue d'un compteur que tu géres en parallèle.

Quand par la suite tu appelles le popup à partir d'un de ces composants tu instruis la propriété tag de ton popup avec la valeur tag de ton composant.

Comme cela si tu appelles la destruction du composant à partir du menu détruire de ton popup tu récupères la valeur du tag puis tu supprimes le composant qui dispose de la même valeur de tag.

En espérant être clair.
Il y a certainement mieux, mais si cette piste peut te donner des idées.

Cordialement
29/06/2004, 15h14
popeyes

Citation:

Envoyé par Pascal Jankowski

Ajoute peut-être une propriété tag à tes composants. Lors de la création de ceux-ci instruits la propriété tag avec une valeur entière issue d'un compteur que tu géres en parallèle.

Quand par la suite tu appelles le popup à partir d'un de ces composants tu instruis la propriété tag de ton popup avec la valeur tag de ton composant.

Comme cela si tu appelles la destruction du composant à partir du menu détruire de ton popup tu récupères la valeur du tag puis tu supprimes le composant qui dispose de la même valeur de tag.

En espérant être clair.
Il y a certainement mieux, mais si cette piste peut te donner des idées.

Cordialement

J'ai insérez le Tag dans le menu et dans le composant, mais comment faire pour séléctionner ce TAG à détruire ?

Sur le formulaire où sont tes composants

Code:

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.detruireComposant(no: integer);
var i: integer;
begin
  for i := 0 to form1.ComponentCount-1 do
  begin
    if form1.Components[i] is TComposantCree //classe du composant
      then 
    if (form1.Components[i] as TComposantCree).Tag = no
           then //detruire_composant  
  end;
end;

A toi de compléter
Cordialement

COde n,e marche pas

Je dois etre mauvais !!!

Le code ne marche pas, il m'affiche l'erreur INDEX DE LISTES HORS LIMITES (0)

Mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.supprfonction(Sender: TObject);
var i: integer;
no: integer;
begin
  for i := 0 to form1.ComponentCount-1 do
  begin
    if form3.Components[i] is TButton//classe du composant
      then
    if (form3.Components[i] as TButton).Tag = no
           then form3.Components[i].free//detruire_composant
  end;
end;

29/06/2004, 15h58
Pascal Jankowski

no tu ne peux le déclarer en local dans ta procédure parceque c'est le numéro du composant à détruire.
Regarde mon précédent Post

Cordialement

Il y a tout ce qu'il faut dans la VCL, voici un exemple (volontairement détaillé) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.miTestClick(Sender: TObject);
var
  popup: TPopupMenu;
  component: TComponent;
begin
  if Sender is TMenuItem then
  begin
    popup:= TMenuItem(Sender).GetParentComponent as TPopupMenu;
    component:= popup.PopupComponent;
    MessageDlg(component.Name, mtInformation, [mbOK], 0);
  end;
end;