Discussion :

[benoît14]

Bonjour,
J'ai développé un programme sous DELPHI 2005 qui lit un tableau EXCEL et le retraite dans un autre classeur EXCEL.
Pour le moment, lance l'exécutable créé par DELPHI et il s'exécute sans autre intervention de l'utilisateur.
Je souhaiterais ajouter un menu à mon programme. Je parviens bien à créer l'arborescence de menus mais je ne vois pas comment appeler mes procédures à partir du menu que j'ai créé. Comment faut-il faire ?
Merci d'avance de vos réponses,
Cordialement,
Benoît

[Charly910]

Bonjour,

tu double-clicques sur un item du menu, et Delphi t'ouvre la procédure à remplir pour ce menu - tu n'as plus qu'à taper ton code.

A+

Charly

[tarekk73]

bon jour
je pence que vous parlez de la creation d'un menu par programmation
comme suite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
NewMenuItem := TMenuItem.Create(MenuItem.Owner);//crée un élément de menu
NewMenuItem.Caption := 'Monmenuitem 1 ';
MenuItem.Add(NewMenuItem);  //ajout notre élément au menu
 
newmenuitem.OnClick := Button1Click ;// ajout un evenement a notre menuitem (ici c un evenement d'un bouton 'Button1Click')

[benoît14]

Bonsoir,

Merci pour vos réponses. Mon problème n'est pas de définir les menus (par l'interface ou par programmation) mais d'appeler ma procédure à partir de l'éditeur.

Je viens de faire un exemple tout simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    FICHIER1: TMenuItem;
    LIRE1: TMenuItem;
    procedure LIRE1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure calcul;
var
  resultat : integer;
  ch : string;
begin
  resultat:=10*3;
  ch :=inttostr(resultat);
  showmessage(ch);
end;
 
 
 
procedure TForm1.LIRE1Click(Sender: TObject);
begin
  calcul;
end;
 
end.

Curieusement cela fonctionne très bien (la fenêtre showmessage apparaît) alors qu'avec mon programme, cela ne fonctionne pas du tout. Je vais le reprendre de zéro, j'ai dû faire une erreur quelque part.

Merci de vos réponses, je vous tiens au courant.

Bonne soirée,

Benoît

[benoît14]

Bonjour à tous,
Après quelques essais, tout fonctionne à merveille.
Merci pour vos réponses,
Bonne journée,
Benoît