Как отследить координаты нажатия ЛКМ в конкретном приложении ( известно заголовок окна) относительно этого приложения

[Illusiony]

Искал, но конкретного мало чего нашел.
Помогите чем сможете. Заранее спасибо.

[cotseec]

найти интересуемое окно (FindWindow function, EnumWindows function, FindWindowEx function etc) далее GetCursorPos function + ScreenToClient function

[Illusiony]

У меня работает определение координат по таймеру в чужом приложении, но как определить координаты в момент клика?

[cotseec]

чтобы "поймать" клик используйте сабклассинг препарируемого окна или хук на мышь

[zvygin1964]

procedure TForm1.Image1DblClick(Sender: TObject);
 var RadioButton: TRadioButton;
E: Tpoint;

begin
 RadioButton:=TRadioButton.Create(Form1);
  with RadioButton do
begin
    Parent:=Form1;
    E:=ScreenToClient(Form1.FDesignSize);
    left:=Mouse.CursorPos.X+E.X;
    top:=Mouse.CursorPos.Y+E.Y;
    Caption:='X= '+IntToStr(Mouse.CursorPos.X+E.X-Customer[var_integer[16]].Customer_center_of_rotation.X)
           +'    Y= '+IntToStr(Mouse.CursorPos.Y+E.Y-Customer[var_integer[16]].Customer_center_of_rotation.Y);
end;
 end;

[Аватар]

zvygin1964

Это с другой оперы

[Illusiony]

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    btn1: TButton;
    tmr1: TTimer;
    lbl2: TLabel;
    lbl3: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  num:Integer;//счетчик кликов
  naj,otj:BOOL;// сохранения в переменных состояния нажатия ЛКМ отжата или нажата.
  p: TPoint;
  WindowRect: TRect;// это для преобразование глобальных координат в координаты относительно текущего окна


implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  tmr1.Enabled:=True;


end;

procedure TForm1.tmr1Timer(Sender: TObject);
var W:Word;
S:String;
h:HWND;

header:HWND; 
apchar:array[0..254] of char;

begin
header:=GetForegroundWindow; // получаем заголовок текущего активного окна
GetWindowText(header, apchar, Length(apchar));
 lbl2.Caption:=apchar;


{if getasynckeystate($01)<>0 then begin
  num:=num+1;
lbl1.Caption:=IntToStr(num);
end;}

h := findwindow(nil, 'Окно нужной программы');
 if (h<>0)and(apchar='Окно нужной программы')then begin // проверяем  является ли текущее активное окно окном  Hearthstone



      W:=GetAsyncKeyState(VK_LBUTTON);// определения параметров состояния кнопок мыши

      if W = $8001 then begin
      S :='кнопка нажата';
      if  otj=True then begin
       num:=num+1;
       lbl1.Caption:=IntToStr(num);
             //Узнаем положение и размеры найденого окна блокнота
      
     GetWindowRect(H, WindowRect); // это для преобразование глобальных координат в координаты относительно текущего окна
      GetCursorPos(p); // берем глобальные координаты курсора

      lbl3.Caption:=IntToStr(p.x- WindowRect.Left)+':'+IntToStr(p.y- WindowRect.Top); // вывожу координаты курсора относительно самого  текущего окна
      end;
      naj:=True;
      otj:=False;
      end;

      if W = $8000 then begin
       S := 'кнопка давно нажата';
      end;
      if W = $0000 then begin
      S := 'кнопка отпущена';
      if  naj=True then begin
       //num:=0;
      end;
      otj:=True;
       naj:=False;
      end;
      S := 'учи матчасть';


      //lbl1.Caption:=Format('%s %.4x',[S , W] );
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  num:=0;
  naj:=False;
  otj:=True;
  lbl2.Caption:='';
end;

end.

Вроде так работает.

Вопрос какой интервал опроса таймера поставить? сейчас стоит 30 миллисекунд.
И есть ли ( и стоит ли) способ обойтись без таймера и событие отсеживать именно в момент нажатия?