Muy, muy elemental

[Carmelo Cash]

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

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

Código Delphi [-]
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.