Tutoriel delphi 7
Fermé
hadjer
-
9 mai 2011 à 13:11
hadjer@ Messages postés 1 Date d'inscription mercredi 11 mai 2011 Statut Membre Dernière intervention 11 mai 2011 - 11 mai 2011 à 14:13
hadjer@ Messages postés 1 Date d'inscription mercredi 11 mai 2011 Statut Membre Dernière intervention 11 mai 2011 - 11 mai 2011 à 14:13
A voir également:
- Tutoriel delphi 7
- Telecharger delphi 7 - Télécharger - Langages
- Passer de windows 7 à windows 10 - Guide
- Clé windows 7 - Guide
- Télécharger pdf gratuit pour windows 7 - Guide
- Movie maker windows 7 - Télécharger - Montage & Édition
2 réponses
irongege
Messages postés
40669
Date d'inscription
jeudi 1 novembre 2007
Statut
Modérateur
Dernière intervention
1 mars 2021
5 123
9 mai 2011 à 13:14
9 mai 2011 à 13:14
Bonjour
Facile
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.
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.
hadjer@
Messages postés
1
Date d'inscription
mercredi 11 mai 2011
Statut
Membre
Dernière intervention
11 mai 2011
Modifié par hadjer@ le 11/05/2011 à 14:19
Modifié par hadjer@ le 11/05/2011 à 14:19
merci d'avoir m'aider ...metarefsalem