<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif">Hola Rafael,</div><div class="gmail_default" style="font-family:tahoma,sans-serif">creo que no es la manera óptima de hacerlo.</div><div class="gmail_default" style="font-family:tahoma,sans-serif">
El OnClick viene desde dentro de la clase TButton y tendrías que derivar (heredar) o reimplementar la clase, un botón completo... para que? Para pasarle como parámetros a un evento 2 edits que NO pertenecen al botón. Entonces, como puede "saber" la clase el nombre de los edits?</div>
<div class="gmail_default" style="font-family:tahoma,sans-serif">El botón es un objeto, los edits son otros objetos, a menos que estés creando un control nuevo, no lo recomiendo.</div><div class="gmail_default" style="font-family:tahoma,sans-serif">
<br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">Si tu intención es crear un "modulo" que contenga 2 edits y un botón, y "pegar" varias veces el mismo módulo en un mismo formulario, te recomiendo utilizar Frames.</div>
<div class="gmail_default" style="font-family:tahoma,sans-serif"><a href="http://wiki.freepascal.org/Frames">http://wiki.freepascal.org/Frames</a><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">
<br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">Dentro del frame puedes crear un evento Presionado(TEdit, TEdit) y desde el OnClick <i>interno del frame</i> lo invocas pasando referencias a los componentes <i>internos</i>.</div>
<div class="gmail_default" style="font-family:tahoma,sans-serif">En tu código del Form, en "OnPresionado" tendrás las referencias a los componentes para trabajar sobre ellos.</div><div class="gmail_default" style="font-family:tahoma,sans-serif">
<br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">Tengo implementado algo similar pero en vez de pasar las referencias de los TEdit paso solo el texto que contienen, es menos engorroso para escribir y mantener.</div>
<div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">Suerte con eso!</div><div class="gmail_default" style="font-family:tahoma,sans-serif">
<br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Fri, May 31, 2013 at 9:34 AM, Rafael Bidegain <span dir="ltr"><<a href="mailto:r.bidegain@gmail.com" target="_blank">r.bidegain@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Hola a todos.<br><br></div><div>necesito agregar dos parámetros al evento onClick de un TButton, <br clear="all">
</div><div><br></div><div>el error que obtengo es el siguiente:<br>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>"<br>

<br></div><div>este es mi código.<br>  TForm1 = class(TForm)<br>    panel1 : TPanel;<br>    edit1, edit2 : Tedit;<br>    boton1 : Tbutton;<br><br>    Button1: TButton;<br>    procedure Boton1Click(Sender: TObject; uno, dos : TEdit);<br>

  private<br>    { private declarations }<br>  public<br>    { public declarations }<br>  end;<br><br>var<br>  Form1: TForm1;<br><br>implementation<br><br>{$R *.lfm}<br><br>{ TForm1 }<br><br>procedure TForm1.Boton1Click(Sender: TObject; uno, dos : TEdit);<br>

var<br>  tmp : string;<br>begin<br> tmp := uno.Text;<br> uno.text := dos.text;<br> dos.text := tmp;<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br><br>  panel1 := Tpanel.Create(Self);<br>  panel1.parent := form1;<br>

  ..<br><br>  edit1 := TEdit.Create(Self);<br>  edit1.parent := panel1;<br>  ..<br><br>  edit2 := TEdit.Create(Self);<br>  edit2.parent := panel1;<br>  ..<br><br>  boton1 := TButton.Create(Self);<br>  boton1.parent := panel1;<br>

  boton1.OnClick := @Boton1Click(Sender, edit1, edit2);<br>  ..<br>end;<span class="HOEnZb"><font color="#888888"><br><br><br><br></font></span></div><span class="HOEnZb"><font color="#888888"><div><br></div><div>-- <br>
Rafael Bidegain<br><br>Ya que los cuerdos no hablan, hablará el loco.<br>(The Fool, Padraic Pearse)<br>
<br># yo quiero educación libre. ¡YA!<br><br></div>
</font></span></div>
<br>_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div><span style="font-family:tahoma,sans-serif">Try not to become a man of success but rather to become a man of value. <i>Albert Einstein</i></span></div>

</div>