Discussion :

[bixi]

Salut

J'ai fais un petit programme qui marche tout bien et la, je suis en train de créer le menu de ce programme..

Dans mon Prog j'ai un bouton parcourir..(Ouvrir) rien de plus simple..
J'aimerais que, dans le menu, quand je clique sur Ouvrir, ca fasse la meme chose que quand je clique sur le bouton Parcourir

Or, ma procédure pour le bouton est du genre :

Code :

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

procedure TForm1.cmd_et3_parcourirClick(Sender: TObject);

Je veux donc , pour le menu, saisir un code du genre:

Code :

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

1
2
3
4
5
6
procedure TForm1.Ouvriruneimage1Click(Sender: TObject);  //procedure lors du click sur Ouvrir dans le menu
begin
      cmd_et3_parcourirClick();
end;
 
end.

Or ca ne marche pas :p, j'ai tenté sans parentheses, avec parametres, etc rien n'y fais..
Mes recherches n'ont rien donné

Est ce bien comme cela que l'on fais au moins?

Merci de votre coup de main

[[Silk]]

Salut, il faut que tu fasse comme ça :

Code :

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

1
2
 
MaForm.MonComposantClick;

[bixi]

Salut

J'avais essayé ta solution, et cela ne marche pas non plus :

Ma procedure OUvrir_click (dans le menu :

Code :

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

1
2
3
4
procedure TForm1.Ouvriruneimage1Click(Sender: TObject);
begin
      cmd_et1_parcourirClick; //fais reference a Procedure TForm1.cmd_et1_parcourirClick(Sender: TObject);
end;

il me sort une erreur :
[Error] Unit1.pas(210): Not enough actual parameters


Je pige pas :
merci pour ton aide

[[Silk]]

excuse moi j'en avais oublié un bout
pour toi sa devrais donner sa :

Code :

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

1
2
3
4
5
 
procedure TForm1.Ouvriruneimage1Click(Sender: TObject);
begin
      Form1.cmd_et1_parcourirClick(Self);
end;

J'avais oublié le self, normalment sa devrais marcher mintenant

[bixi]

Merchi beaucoup!!

Ca marche, j'avais tenté this, j'ai zapé le Self :d

C'est cool en tous cas!

Merci a toi

hop résolu

[delphichem]

Je sais que c'est résolu, mais si cmd_et3_parcourir est un bouton, alors tu peux faire ça:

Code :

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

1
2
3
4
5
 
procedure TForm1.Ouvriruneimage1Click(Sender: TObject);  //procedure lors du click sur Ouvrir dans le menu
begin
  cmd_et3_parcourir.click;
end;

ou mieu, dans l'inpecteur d'objets associes l'évenement onclick du menu ouvriruneimage directement a cmd_et3_parcourirclick.

[bixi]

Merci du tuyau, ca m'a l'air tres utile et bien plus simple