Как победить чужой SpeedButton

[MaxXx_1]

Ну не щёлкает он блин ни как ни щёлкает. Уже устал бится головой об стол. Кто нибудь может дать внятный ответ? 3 форума и одни бла бла бла

procedure Poshla;
var
w1:THandle;
begin
W1 := FindWindow('TPanel', ' WР Рackеt Cоnvеrtеr v7.6');
if W1 <> 0 then
begin
sendmessage(w1, WM_LBUTTONDBLCLK, 10, 10);
ShowMessage('+');
end
else
ShowMessage('-');

Может кто нибудь дать реальный код как произвести щелчок мыши в другом окне? Находить находит но не щёлкает в упор, ни одинарный ни двойной, вобще ни как, свернуто развёрнуто, разные координаты. Что не так? Подскажите.

[eoln]

Если окно развёрнуто и не перекрывается, то

  setcursorpos(X,Y);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0);
  Application.ProcessMessages;
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, X, Y, 0, 0);

X, Y - экранные координаты
Чтобы узнать эти х,у, нужно узнать на сколько кнопку смещена относительно формы (узнать можно с помощью программы WinSpy++ или аналогичной) и прибавить к ним координаты самой формы

var
  h: HWND;
  rect: TRect;
begin
  h:=GetForegroundWindow;
  GetWindowRect(h,rect);

rect.Left, rect.Top - координаты формы

[MaxXx_1]

Если развернуто то да, просто я хотел то-бы все происходило в фоновом режиме. Но видимо ни кто не шарит в этой вещи и придётся так реализовывать.
ПРосто самому интересно почему при отправке сообщения о щелчке не нажимается ни чего. ПРичём пробую просто сам создаю одну форму с кнопкой обычно и вторую для щелчка. Отправляю сообщение о щелчке на фторую форму и ни чего не происходит.

[eoln]

Отправляю сообщение о щелчке на фторую форму и ни чего не происходит

Так кому сообщение? Форме? Форма не обрабатывает событие OnClick? А оно у нее есть вообще? sendmessage - это не имитация клика по какому-то месту, это посылка сообщения контролу. Мышь тут вообще ни при чём, просто контрол думает что по нему кликнули мышкой, хотя этого не было. Другими словами, это просто вызов кода обработчика события OnClick.
Отправлять нужно тому компоненту, по которому хотим кликнуть, а не форме.

А как вообще поиск происходит? Есть подозрения, что просто по findwindow/ex с указанием класса без учёта того, что есть несколько таких дочерних компонентов.

По поводу тех контролов у которых нет хендла - посылать sendmessage некуда, тут уж ничего не поделать. Либо имитировать клик (например, Mouse_Event), либо в код программы вмешиваться, либо ещё как. А это уже чисто индивидуально для каждой программы.

[northener]

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

Ну не щёлкает он блин ни как ни щёлкает. Уже устал бится головой об стол. Кто нибудь может дать внятный ответ? 3 форума и одни бла бла бла

procedure Poshla;
var
w1:THandle;
begin
W1 := FindWindow('TPanel', ' WР Рackеt Cоnvеrtеr v7.6');
if W1 <> 0 then
begin
sendmessage(w1, WM_LBUTTONDBLCLK, 10, 10);
ShowMessage('+');
end
else
ShowMessage('-');

Может кто нибудь дать реальный код как произвести щелчок мыши в другом окне? Находить находит но не щёлкает в упор, ни одинарный ни двойной, вобще ни как, свернуто развёрнуто, разные координаты. Что не так? Подскажите.

Что-то я не пойму ничего. В заголовке темы SpeedButton. А в данном коде ищется окно класса TPanel с заголовком WР Рackеt Cоnvеrtеr v7.6
Как это понимать, Саид?

[Alex11223]

Ну видимо SpeedButton на этой панели. А что вы предлагаете искать? SpeedButton это не обычная стандартная кнопка, а TGraphicControl, оно не имеет хэндла.

Мне когда-то надо было автоматизировать пару действий в древней Дельфийской программе без исходников, там тоже были SpeedButton. Я просто отправлял WM_LBUTTONDOWN и WM_LBUTTONUP с координатами кнопки ее родителю (панели), все работало. Координаты конечно должны быть относительно панели.
Окно программы было скрыто (ShowWindow SW_HIDE).

[Аватар]

В свернутом окне SpeedButton на WM_LBUTTONDOWN и WM_LBUTTONUP по его координатам не реагирует. Но при разворачивании окна срабатывает вся серия посланных сообщений. Проверил в д7, контейнер SpeedButton-а непосредственно форма