[Lazarus-es] onClick con parametros adiconales.

[Rafael Bidegain]

Hola a todos.

necesito agregar dos parámetros al evento onClick de un TButton,

el error que obtengo es el siguiente:
Error:Incompatibles types: got "<procedure variable type of
procedure(Tobject, Tedit, Tedit) of object;Register>" expected "<procedure
variable type of procedure(TObject) of object;Register>"

este es mi código.
  TForm1 = class(TForm)
    panel1 : TPanel;
    edit1, edit2 : Tedit;
    boton1 : Tbutton;

    Button1: TButton;
    procedure Boton1Click(Sender: TObject; uno, dos : TEdit);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Boton1Click(Sender: TObject; uno, dos : TEdit);
var
  tmp : string;
begin
 tmp := uno.Text;
 uno.text := dos.text;
 dos.text := tmp;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  panel1 := Tpanel.Create(Self);
  panel1.parent := form1;
  ..

  edit1 := TEdit.Create(Self);
  edit1.parent := panel1;
  ..

  edit2 := TEdit.Create(Self);
  edit2.parent := panel1;
  ..

  boton1 := TButton.Create(Self);
  boton1.parent := panel1;
  boton1.OnClick := @Boton1Click(Sender, edit1, edit2);
  ..
end;




-- 
Rafael Bidegain

Ya que los cuerdos no hablan, hablará el loco.
(The Fool, Padraic Pearse)

# yo quiero educación libre. ¡YA!
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130531/11a704dc/attachment-0002.html>