нажать на TSpeedButton чужого СВЕРНУТОГО окна

[Yuran]

Последнее сообщение. Скопировано с темы справедливо закрытой модератором. http://programmersforum.ru/showthread.php?t=21450

С ужасом для себя выяснил что компонент TspeedButton не имеет Handle . Так же как и все компоненты наследники TGraphicControl, в частности, TLabel, TShape, TImage, TBevel и т.д.

вот статья

http://www.delphikingdom.com/asp/ans...IDAnswer=62488
Получилось нажать на кнопку "мышкой" вот так

procedure TForm1.Button2Click(Sender: TObject);
var wnd:HWND;
r:TRect;
prev_pos:TPoint;
begin
wnd:=Findwindow(nil, 'Заказ запчастей');; // получаем хэндл окна с кнопкой
GetWindowRect(wnd,r); // получаем координаты окна.
GetCursorPos(prev_pos); // запоминаем положение курсора
memo1.Clear;
memo1.Lines.Append('X='+inttostr(r. Left));
memo1.Lines.Append('Y='+inttostr(r. Top));

SetCursorPos(r.left+633+20+10,r.top +280+20+10); // устанавливаем курсор над кнопкой
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, r.Left+663, r.Top+300, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, r.Left+6+3, r.Top+300, 0, 0);
SetCursorPos(prev_pos.x,prev_pos.y) ; // возвращаем курсор
end;


Но это работает если форма программы НЕ свернута и находится В РАМКАХ рабочей зоны экрана.
Как сделать клик на кнопке таким же (или другим) способом в СВЕРНУТОМ окне ?????

[D-mon]

Развернуть и нажать...

[Yuran]

Это я уже предположи. Но в душе сидела надежда что можно как то по другому.

SendMessage(Handle,WM_SYSCOMMAND,SC _RESTORE,0);
Восстановить окно


А какие сообщения отвечают за изменение координать окна?

окно.left
и
окно.top

[Stilet]

WM_MOVE или WM_MOVING точно не помню.

[B_N]

Всё намного проще:

PostMessage(h, WM_LBUTTONDOWN, 0, MAKELPARAM(x,y));
PostMessage(h, WM_LBUTTONUP, 0, MAKELPARAM(x,y));

h - хэндл формы, на которой лежит кнопка (ну или того настоящего окна, на которой она лежит в общем случае)
x, y - клиент-координаты формы в которые попадает кнопка.

------------------

в Дельфи, вместо MAKELPARAM -

x + y shl 16

[Stilet]

в Дельфи, вместо MAKELPARAM

Не требуется. В Делфи есть MAKELPARAM и вполне работает.

Всё намного проще:

Предположим координат я не знаю. Как тогда?

[B_N]

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

Не требуется. В Делфи есть MAKELPARAM и вполне работает.

Вот и чудненько Я последнее время всё время стараюсь подстраховаться.

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

Предположим координат я не знаю. Как тогда?

А тогда, видимо, и вопрос отпадает. Автор изначально собирался "щелкать" по координатам, а speedbutton, видимо, реализована на уровне VCL, никаких её признаков, выходящих за рамки приложения или сообщений мной замечено не было.