A voir également:
- Tutoriel delphi 7
- Delphi 7 - Télécharger - Langages
- Photofiltre 7 - Télécharger - Retouche d'image
- Clé windows 7 - Guide
- Télécharger 7-zip - Télécharger - Compression & Décompression
- Télécharger windows 7 32 bits usb - Télécharger - Systèmes d'exploitation
2 réponses
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.
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.