Aide: Menu et Sous MenuRésolu

Question

Bonjour



Je suis en tains de faire un programme, j'ai un menu principale et un
sous menu que je remplit et je voudrai savoir comment faire, lorsque je
click sur une ligne de ce sous menu pour affich&#233; le contenu de cette
ligne??




Je voudrai en fait que lorsque je click dans mon sous menu affich&#233; un text.



Sans passer par l'&#233;v&#232;nement OnClick dans l'inspecteur d'objet.  



Merci.

yosthegost · Accepted Answer

Bonjour

J'ai encore besoin d'aide.


Dans mon programme je remplit un sous Menu, il se remplit correctement,
le seul probl&#232;me est, ke lorsque je r&#233;cup&#233;re le contenu du sous Menu:
Dans le menu est affich&#233;: Bonjour et je r&#233;cup&#232;re Bonjour par exemple





Pouvez vous m'aidez svp. Merci

PyRuSs · Answer

Si tu clique dessus, pourquoi tu ne veux pas utiliser l'evenement onClick?


-_- VS ^_^

f0xi · Answer

il faut passer obligatoirement par un evenement qu'il soit OnClick ou OnPopup ou OnShow ou autre, de la liste ou du menu.
tu ne peu pas faire autrement. c'est quasiment obligatoire.

ces evenements sont fait expr&#233;s pour detecter une action de l'utilisateur, tu ne peu donc pas les ignorer.

yosthegost · Answer

Le probl&#232;me est que je doit le programmer en dynamique.
je doit en faite d&#233;tecter le contenu de la ligne et selon le contenu effectu&#233; un &#233;venement.

PyRuSs · Answer

Citation:
'je doit en faite d&#233;tecter le contenu de la ligne et selon le contenu effectu&#233; un &#233;venement.'

detecte ca dans l'evenement onClick(...).
A vrai dire j'ai du mal a comprendre ce que tu cherche a faire?
Tu utilise les composant standard pour les menus?

-_- VS ^_^

yosthegost · Answer

Je vais t'expliqu&#233; : dans mon programme je remplit mon menu dynamiquement , lorsque j'ex&#233;cute mon programme. Par consequent je ne peut pas acc&#233;der &#224; l'&#233;venement OnClick car mon menu est initialement vide. Je voudrai donc avoir la possibilit&#233; de pouvoir effectu&#233; l'&#233;venement OnClick dans mon programme.

PyRuSs · Answer

Dans ces cas la, si tu veux generer l'evenement onClick n'importe ou dans ton programme, il faut simplement faire un appelle comme pour toute autre procedure

...
ducode...
...
Form1.Menu1Click(Nil); // Nil sous entend que tu n'utilise pas l'objet de l'action
...
ducode...
...

avec ton evenement deja etabli:

procedure TForm1.menu1Click(Sender: TObject);
begin
...
   ducode...
...
end;

-_- VS ^_^

yosthegost · Answer

Je vais voir sa, mais ....

yosthegost · Answer

Le probl&#232;me est que je ne connait pas &#224; l'avance le contenu du programme, en faite mon menu contient le nom des cartes r&#233;seaux disponible sur un Pc.
Donc il peut y en avoir 1 ou plus et selon le pc la carte sera diff&#233;rente.

PyRuSs · Answer

avec quoi tu fais ton menu, quel composant? O_o

-_- VS ^_^

yosthegost · Answer

je le fait avec un popup Menu

f0xi · Answer

a tout moment tu peu assigner une methode a un evements d'objet en dynamique:

procedure MaMethodePerso(Sender : TObject);
begin
  ... methode ...
end;

et a la creation de chaque nouveau menu ou sous menu :

begin

  NewMenuItem := TMenuItem.Create(self);


  with NewMenuItem do begin
       Parent  := Menu1;
       Caption := 'blabla';

       NewMenuItem.OnClick := MaMethodePerso;
  end;

end;

exemple :

var
  NBCount : integer = 0;

procedure TForm1.Button1Click(Sender: TObject);
var NewB : TButton;
begin
  with (Sender as TButton) do begin
       inc(NBcount);
       NewB         := TButton.Create(self);
       NewB.Width   := width;
       NewB.Height  := height;
       NewB.Left    := Left+Width+5;
       NewB.Top     := Top;
       NewB.OnClick := OnClick;
       NewB.Parent  := Parent;
       NewB.Caption := 'New'+inttostr(NBCount);
       Enabled      := False;
  end;
end;

Cet exemple cr&#233;e un nouveau bouton a la droite de celui qui a ete cliquer, et desactive le bouton cliqu&#233;.
Chaque nouveau boutton herite de la methode de l'ancien.

PyRuSs · Answer

interressant... je savai pas qu'on pouvai assigner des methodes comme ca...
NewMenuItem.OnClick := MaMethodePerso;

j'irai me coucher moins c** ^^

-_- VS ^_^

yosthegost · Answer

Bonjour, 

Ok Merci je v tester sa.

Aide: Menu et Sous Menu

14 réponses

Votre réponse