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
- Clé windows 7 - Guide
- Passer de windows 7 à windows 10 - Guide
- Telecharger photofiltre 7 gratuit - Télécharger - Retouche d'image
- Movie maker windows 7 - Télécharger - Montage & Édition
2 réponses
irongege
Messages postés
40847
Date d'inscription
jeudi 1 novembre 2007
Statut
Modérateur
Dernière intervention
29 juin 2023
5 058
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
