Envio de parametros

[Onti]

Hola To2

Tengo una consulta: "Como puedo hacer una funcion que reciba como parametro un componente (Un edit, label, combo, etc) y en la funcion modificar un porpiedad comun por ejemplo la propiedad left.


gracias

[Ruben_Cu]

Hola Onti, yo no utilizaría una función, en este caso prefiero hacerlo con un procedimiento como ejemplo he colocado dos Edit y un Label, el primer edit es para introducir el valor deseado de la propiedad Left, el otro y el Label serán los que reciban el cambio lo he asociado al evento OnClick del edit2 y tambien el Label debe usar el evento OnClick del edit2.
Declarando el procedimiento en el módulo de interfase:

procedure cambiarleft(miobjeto:twincontrol; margen:integer);

Llamando al procedimiento y pasandole los parámetros:

procedure TForm1.Edit2Click(Sender: TObject);
begin
        cambiarleft(twincontrol(sender), strtoint(edit1.Text));
end;

En el Edit1 debes introducir el valor que deseas tome la propiedad left.
Espero que te aclarre un poco para lo que quieres hacer.
Saludos

[Onti]

Muchas gracias Ruben, lo que necesitaba !!

(Yo tambien me referia a un procedimiento, fue un error lingustico )