Aunque un
Hook suena razonable resulta un poco complicado y en teoría requiere instalarse en una dll. Una manera de obtener la posición del cursor en 'casi' todo momento sin importar dónde esté es mediante un Timer:
Código Delphi
[-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption := Format('(%d, %d)', [Mouse.CursorPos.X, Mouse.CursorPos.Y]);
end;
Digo 'casi' pero si se pone Timer.Interval suficientemente pequeño ni quien se de cuenta
.
Por otra parte, el doble click se puede emular así:
Código Delphi
[-]
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
// Saludos