Muy, muy elemental

[Carmelo Cash]

Hola Foro:
Perdón por hacer una consulta tan elemental, pero... bué. :o

Necesito mover una etiqueta utilizando un botón, entonces, en el evento OnClick hago

Label1.left:=Label1.Left-1;

Pero para que funcione debo hacer Click, Click, Click, Click.

¿Donde debo colocar el código para que comience a moverse cuando aprieto el mouse y pare cuando lo suelto?

Desde ya muchas gracias.

[argami]

Cuando el Boton ha bajado


OnMouseDown


Cuando ha subido


OnMouseUp

[Carmelo Cash]

Si, pero la única forma que lo pude hacer fué colocando un Timer. Funciona, pero me parece que colocar un timer para esto es como mucha cosa. No?

[argami]

Pruebalo

var
Form1: TForm1;
BAr :Boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
BAr:= False;
While not Bar do
begin
Application.ProcessMessages;
Edit1.Left := Edit1.Left - 1;
end;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Bar := TRue;
end;

end.

[Carmelo Cash]

Gracias Argami, muchas gracias.