FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
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 |
#2
|
|||
|
|||
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); Código:
procedure TForm1.Edit2Click(Sender: TObject); begin cambiarleft(twincontrol(sender), strtoint(edit1.Text)); end; Espero que te aclarre un poco para lo que quieres hacer. Saludos |
#3
|
||||
|
||||
Muchas gracias Ruben, lo que necesitaba !!
(Yo tambien me referia a un procedimiento, fue un error lingustico ) |
|
|
|