[Lazarus] GetCaretPos возвращает нули.

[Alex Cones]

В мясе сказано, что

If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

У меня в простом виде:

Windows.GetCaretPos(P);

Вертает нули.

Смотрю последнюю ошибку - 1400. (Invalid window handle). Интересное кино. Нашел единственное в нете решение, которое было создано для D5, у которой был такой же баг:

Var
   P : TPoint;
   R : Rect;
   I : Integer;
   hOtherWin : THandle;
   aDwordVar : DWORD;
   OtherThreadID : DWORD;
   hFocusWin : THandle;
  Begin
   ZeroMemory(@P, SizeOf(P));

   hOtherWin := GetForegroundWindow;
   OtherThreadID := GetWindowThreadProcessID( hOtherWin, @aDwordvar);

   If AttachThreadInput( GetCurrentThreadID, OtherThreadID, True ) Then
   try
     hFocusWin := GetFocus;  // get active processes focused window
     if GetCaretPos(p) then
       Begin
        POSITIVE;
       End;
      End;

   finally
     AttachThreadInput( GetCurrentThreadID, OtherThreadID, False );

Но так, как я влезаю в поток (хз кого и как, знаю, что влезаю), то если я юзаю эту функу как задумывалось изначально (10 раз в секунду против задержки в 1500 сейчас), то это не дает системе обрабатывать double click.

Какие будут предложения? Переход обратно на Delphi не предлагать (разве что вместе с деньгами на лицензию).

Если интересно мнение американцев: http://forum.lazarus.freepascal.org/...c,10700.0.html

[GunSmoker]

The caret position is always given in the client coordinates of the window that contains the caret.

Несложно сообразить, что это может означать, что если каретка не в вашем окне, то у вас могут быть проблемы.

По теоретической части рекомендую почитать Рихтера.

Сразу увидите, что и зачем делается в найденном коде.

Как сюда вписывается Lazarus - увы, не имею с ним опыта общения.

[Alex Cones]

Как сюда вписывается Lazarus - увы, не имею с ним опыта общения.

Да вот он как раз таки тут зачинщик - в Delphi код Windows.GetCaretPos вертает верные координаты для блокнота. А в лазаре - нули. Не смотря на то, что процедуру они импортируют одну и ту же.

[Vikenty]

Сообщение от Alex Cones

Да вот он как раз таки тут зачинщик - в Delphi код Windows.GetCaretPos вертает верные координаты для блокнота. А в лазаре - нули. Не смотря на то, что процедуру они импортируют одну и ту же.

тогда дело в Lazarus...

[Alex Cones]

Сразу увидите, что и зачем делается в найденном коде.

Так, немного въехал. А нельзя мне приаттачиться к потоку при создании программы и уйти оттуда при её убийстве? Что бы не аттачиться каждые 100 мс? Просто я даже не знаю, что "кушает" double клики в системе. В смысле какой именно элемент кода.

[Alex Cones]

Другая мысль - если сделать проверку на изменение фокусного окна?

   If GetForegroundWindow <> hOtherWin Then
    Begin
     hOtherWin := GetForegroundWindow;
     OtherThreadID := GetWindowThreadProcessID( hOtherWin, @aDwordvar);

     If AttachThreadInput( GetCurrentThreadID, OtherThreadID, True ) Then
      try
       hFocusWin := GetFocus;  // get active processes focused window
       if GetCaretPos(p) then
        Begin
         If (P.X = 0) And (P.Y = 0) Then
         Begin
          Form.Left := 100;
         End
        Else
         Begin
          GetWindowRect(hFocusWin, R);
          P.X := R.Left + P.X -6;
          P.Y := R.Top  + P.Y + 17;
          Form.Left := P.X;
          Form.Top  := P.Y;
         End;
        End;

      finally
       AttachThreadInput( GetCurrentThreadID, OtherThreadID, False );
      end;
    End
   Else
    Begin
     hFocusWin := GetFocus;  // get active processes focused window
     if GetCaretPos(p) then
        Begin
         If (P.X = 0) And (P.Y = 0) Then
         Begin
          Form.Left := 200;
         End
        Else
         Begin
          GetWindowRect(hFocusWin, R);
          P.X := R.Left + P.X -6;
          P.Y := R.Top  + P.Y + 17;
          Form.Left := P.X;
          Form.Top  := P.Y;
         End;
        End;
    End;

правда так срабатывает правильно на долю секунды, потом обратно уходит на Left=200. НО двойной клик делается.
P.S. hOtherwin вынес в глобальные.

[alex_von_fos]

Блин, у меня такая же проблема ... Либо координаты каретки правильные либо даблклик делать не дает! Вызываю код по таймеру (несколько десятков раз в секунду) - если уменьшать число вызовов, то даблклик иногда проскакивает.

Должно же быть решение!