Muy, muy elemental
 

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.

Cuando el Boton ha bajado

Cuando ha subido

SI Pero..
 

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?

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.

Gracias
 

Gracias Argami, muchas gracias.