Выбрать в ListBox чужого окна item (с кликом)

[cybernewbie]

Здравствуйте,

Как можно выбрать с кликом item в ListBox чужого окна.
Выбираю строку так:

SendMessage(lb0, LB_SETCURSEL, 1, 0);

Но нет клика.
Нашёл код:

    Dim rcitm As RECT
    Dim lpr As Long
    SendMessage hwndEd, LB_SETCURSEL, i, 0:
    SendMessage hwndEd, LB_GETITEMRECT, i, ByVal rcitm
    lpr = (rcitm.Left And &HFFFF) Or ((rcitm.Top And &HFFFF) * 65536)
    SendMessage hwndEd, WM_LBUTTONDBLCLK, 0, ByVal lpr

Как он будет выглядеть на языке Delphi?
Пожалуйста помогите, очень нужно нажать на Item в ListBox в чужом окне.
Заранее спасибо.

Или, есть какой либо другой метод нажатия на пункт в listbox в чужом окне?
Нужно учитывать что окно может перемещаться и т.д.

[macomics]

{ Если нет описания функции Coord
function Coord(aX, aY: Word): LongInt; inline;
begin
   Result := aX or (aY shl 16);
end;
}

procedure ClickAndSelect(hWnd: THandle);
var
   R: TRect;
begin
   SendMessage(hWnd, LB_SETCURSEL, i, 0);
   SendMessage(hWnd, LB_GETITEMRECT, i, Integer(@R));
   SendMessage(hWnd, WM_LBUTTONCLICK, 0, Coord(R.Left + R.Width div 2, R.Top + R.Height div 2)); // Кликаем в центр Item, а не в угол как в примере
end;

[cybernewbie]

Описание функции Coord вроде есть, но выдаёт две ошибки:

E2029 ')' expected but ',' found
E2250 There is no overloaded version of 'SendMessage' that can be called with these arguments

Используя функцию:

function Coord(aX, aY: Word): LongInt; inline;
begin
   Result := aX or (aY shl 16);
end;

Программа запускается, но клика как будто нет, при клике должны появляться элементы.

SendMessage(hWnd, LB_GETITEMRECT, i, Integer(@R));

"Integer(@R)" выдаёт 1700568

endMessage(hWnd, WM_LBUTTONCLICK, 0, Coord(R.Left + R.Width div 2, R.Top + R.Height div 2));

"Coord(R.Left + R.Width div 2, R.Top + R.Height div 2)" выдаёт 3604560

[macomics]

3604560 = $00370050 т.е. координаты клика x = 80, y = 55 относительно угла окна hWnd

[cybernewbie]

понял, странно, почему тогда не срабатывает ((
Также использую не WM_LBUTTONCLICK, потому что выдаёт:

E2003 Undeclared identifier: 'WM_LBUTTONCLICK'

а WM_LBUTTONDBLCLK

[macomics]

Лучше WM_LBUTTONDOWN

[cybernewbie]

И огромное спасибо за перевод кода на Delphi.
По прежнему нуждаюсь в помощь, заранее благодарю

Сообщение от macomics

Лучше WM_LBUTTONDOWN

Огромное спасибо, помогло, гигантское спасибо)

[macomics]

Попробуйте так

SendMessage(hWnd, WM_LBUTTONDOWN, MK_LBUTTON, Coord(R.Left + R.Width div 2, R.Top + R.Height div 2))

ADD:

procedure ClickAndSelect(hWnd: THandle; uiIndex: Integer);
   function Coord(aX, aY: Word): LongInt; inline;
   begin
      Result := aX or (aY shl 16);
   end;
var
   R: TRect;
begin
   SendMessage(hWnd, LB_GETITEMRECT, uiIndex, Integer(@R));
   PostMessage(hWnd, LB_SETCURSEL, uiIndex, 0);
   PostMessage(hWnd, WM_LBUTTONDOWN, MK_LBUTTON, Coord(R.Left + R.Width div 2, R.Top + R.Height div 2)); // Кликаем в центр Item, а не в угол как в примере
end;

[cybernewbie]

Сообщение от macomics

Попробуйте так

Так не работает, пробовал

[cybernewbie]

Сообщение от macomics

procedure ClickAndSelect(hWnd: THandle; uiIndex: Integer);
function Coord(aX, aY: Word): LongInt; inline;
begin
Result := aX or (aY shl 16);
end;
var
R: TRect;
begin
SendMessage(hWnd, LB_GETITEMRECT, uiIndex, Integer(@R));
PostMessage(hWnd, LB_SETCURSEL, uiIndex, 0);
PostMessage(hWnd, WM_LBUTTONDOWN, MK_LBUTTON, Coord(R.Left + R.Width div 2, R.Top + R.Height div 2)); // Кликаем в центр Item, а не в угол как в примере
end;

Это тоже не работает, сработал только:

Сообщение от macomics

Лучше WM_LBUTTONDOWN

Ещё раз огромное спасибо, гигантское спасибо