Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Envio de parametros (https://www.clubdelphi.com/foros/showthread.php?t=4531)

Onti 19-10-2003 15:55:18

Envio de parametros
 
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 19-10-2003 16:38:50

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:
Código:

procedure cambiarleft(miobjeto:twincontrol; margen:integer);
Llamando al procedimiento y pasandole los parámetros:
Código:

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 19-10-2003 17:01:48

Muchas gracias Ruben, lo que necesitaba !!

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


La franja horaria es GMT +2. Ahora son las 08:13:50.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi