Mantener click izquierdo

[Ramsay]

Me ha gustado el codigo de este truco : http://www.clubdelphi.com/foros/showthread.php?t=80410 , ¿ se podria hacer un codigo para mantener el click izquierdo por un rato (5 segundos y despues soltar) , intente con un timer de click izquierdos pero no es lo mismo , ¿ como deberia hacerlo ?

[ecfisa]

Hola.

Un ejemplo con un TButton, dos TLabel y un TSpeedButton para resaltar el mouse presionado:

Código Delphi [-]
...
implementation

const
  BTLEFTDOWN = 0;
  BTLEFTUP   = 1;

procedure ButtonLeftAction(DownUp: Integer);
var
  si: array [0..1] of TInput;
begin
  FillChar(si, SizeOf(si), 0);
  si[0].Itype      := INPUT_MOUSE;
  si[0].mi.dwFlags := MOUSEEVENTF_LEFTDOWN;
  si[1].Itype      := INPUT_MOUSE;
  si[1].mi.dwFlags := MOUSEEVENTF_LEFTUP;
  Windows.SendInput(1, tagINPUT(si[DownUp]), SizeOf(TInput));
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled  := False;
  Timer1.Interval := 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(FCount);
  Label2.Caption := Format('%d',[FCount]);
  if FCount = 5 then
  begin
    ButtonLeftAction(BTLEFTUP);
    Label1.Caption := 'Botón izquierdo liberado';
    Timer1.Enabled := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  p: TPoint;
  sp: TSpeedButton;
begin
  sp := SpeedButton1;
  p  := ClientToScreen(Point(sp.Left + 5, sp.Top + 5));
  SetCursorPos(p.X, p.Y);
  ButtonLeftAction(BTLEFTDOWN);
  Label1.Caption  := 'Botón izquierdo presionado';
  Label2.Caption  := '';
  FCount          := 0;  // ( Variable privada de Form1 )
  Timer1.Enabled  := True;
end;

Vista:


Saludos

[Ramsay]

Gracias por la ayuda ecfisa.