Discussion :

[cgone]

Bonjour,

J'ai une procédure dans une unité :

Code :

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

procedure TFRM_RpFatura.BitBtn_ExibirFaturaClick(Sender: TObject);

Dans une autre unité, j'ai une tache identique à réaliser et, au lieu de faire un copier-coller, je voudrais pouvoir faire :

Code :

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

1
2
3
4
5
procedure TFRM_Vendas.ImprimirFatura(FactID : String);
begin
  FRM_RpFatura.Ed_NumFatura.Text := FactId;
  FRM_RpFatura.BitBtn_ExibirFaturaClick(Sender);
end;

mais j'ai ceci à la compilation :

Code :

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

[Erreur] U_Vendas.pas(269): Identificateur non déclaré : 'Sender'

Quelqu'un a une idée ?

Cyril

[qi130]

Le sender est en général l'objet qui déclenche l'appel de ta procédure.

On le trouve en déclaration implicite comme paramètre (cf le 1er code)

Dans le 2nd code, sender n'est pas déclaré implicitement, ni explicitement !

Si tu n'as pas d'objet à passer en paramètre, tu codes ton appel avec nil :

Code :

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

FRM_RpFatura.BitBtn_ExibirFaturaClick(nil);

Bien sûr dans la proc appelée, le sender vaudra nil

[cgone]

Merci M'sieur,

C'est tout ce qui me fallait...

Cyril