Tutoriel delphi 7

Bonjour

Facile

Cet exemple ne montre qu'une simple approche de la création dynamique des Menus, pour pouvoir leur acceder et les manipuler il faut des methodes et propriétés de classes.

Dans votre cas, vous devez peut etre concevoir des menus en mode conception et les manipuler facilement.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Menu1, Sous_0_Menu1, Sous_1_Menu1 :TMenuItem;
begin
Menu1 :=TMenuItem.Create(Self);
MainMenu1.Items.Add(Menu1);
Menu1.Caption :='Hadjer';
Sous_0_Menu1 :=TMenuItem.Create(Menu1);
Menu1.Add(Sous_0_Menu1);
Sous_0_Menu1.Caption := 'Hadjer_0';
Sous_1_Menu1 :=TMenuItem.Create(Menu1);
Menu1.Add(Sous_1_Menu1);
Sous_1_Menu1.Caption := 'Hadjer_1';
end;
end.