Ver Mensaje Individual
  #6  
Antiguo 26-07-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Agustín.

Yo me refería a que dá igual el nombre dado al parametro en la declaración, siempre que se corresponda con el de su definición.

Coincido con vos en que, si genera el evento en tiempo de diseño, el nombre del parámetro en la definición del método deberá ser Sender y no otro. Ya que es el nombre que Delphi le asignará por defecto al parámetro en la declaración.

Sin embargo este código,
Código Delphi [-]
..
type
  TForm1 = class(TForm)
   ...
  private
    procedure webbrowser1_completo(UngaBunga: TObject;
      const Maranga: IDispatch; var Turongo: OleVariant);
  public
    ...
  end;
...
implementation 

uses SHDocVw;

procedure TForm1.webbrowser1_completo(UngaBunga: TObject;
      const Maranga: IDispatch; var Turongo: OleVariant);
begin
  ShowMessage('Documento completo');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  WB: TWebBrowser;
begin
  WB := TWebBrowser.Create(Self);
  WB.OnDocumentComplete := webbrowser1_completo;
  WB.ParentWindow := Handle;
  WB.Navigate('www.ClubDelphi.com');
  ...
end;
funciona correctamente por que respeta la igualdad de los nombres.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita