Ver Mensaje Individual
  #2  
Antiguo 19-10-2003
Ruben_Cu Ruben_Cu is offline
No confirmado
 
Registrado: oct 2003
Ubicación: Mariel, Cuba
Posts: 271
Reputación: 0
Ruben_Cu Va por buen camino
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
Responder Con Cita