Tmenuitem toujours...Résolu

Question

Salut! 

j'ai cr&#233;&#233; un Tmenuitem dynamique,

d&#233;claration :

    Calques: array [1..20] of Tmenuitem;
    procedure affiche_masque(Sender: TObject);   

cr&#233;ation de l'item dans le menu :

    Calques[i]:=Tmenuitem.Create(Self);
    Calques[i].Caption:=Pseudos[i];
    Calques[i].AutoCheck:=true;
    Calques[i].OnClick:=affiche_masque;   //affiche_masque c'est ma fonction appel&#233;e
    Calques1.add(Calques[i]);

ma fonction :

procedure Tfmain.affiche_masque(Sender: TObject);
begin
    with sender as Tmenuitem do
    begin
        if (fmain.Masques[Calques1.tag].visible) then
        begin
            Masques[Calques1.tag].visible:=false;
            fmain.label1.caption:='Calque de '+Pseudos[Calques1.tag] +' masqu&#233;';
        end
        else
        begin
            Masques[Calques1.tag].Visible:=true;
            fmain.label1.caption:='Calque de '+Pseudos[Calques1.tag] +' affich&#233;';
            Masque0.BringToFront;
        end
    end;
end;

par contre ca me r&#233;cup&#232;re le tag de mon menus, pas de mon "sous menu"

donc est ce que qqn a la r&#233;ponse? 

Merci

roud59 · Accepted Answer

Salut,


Lorsque tu cr&#233;es tes TMenuItem, ajoute Calques[i].Tag := i;


Ensuite dans affiche_masque, tu peux utiliser Masques[(sender as TMenuItem).Tag]. Il faut bien sur que Masques[n] corresponde &#224; Calques[n]


Tu peux aussi faire Calques[i].Tag := Integer(Masques[i]). Comme &#231;a, tag pointe vers la structure Masque correspondante. Ensuite : with TMasque((Sender as TMenuItem).Tag) do ...

J'esp&#232;re t'avoir aid&#233;. Bonne programmation.

Roud59

cs_TkILLA · Answer

Merci beaucoup &#231;a marche :)

Tmenuitem toujours...

2 réponses

Votre réponse

Discussions similaires