| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как кликнуть мышкой в своем же окне [D7, WinXP]
Новичек © (2003-11-27 19:26:00)
Подскажите пожалуйста как програмно кликнуть мышкой в точку находящуюся с координатами x,y от левого верхнего угла моей формы!
Я пытался делать так:
Поставил на форму Button1 и Button2
Нажимая на Button2 хотел чтоб програмно нажималось на Button1.
Координаты центра Button1 нашел с помошью OnMouseMove.
Использовал SendMessage вместо mouse_event(), потому что мне надо с емулировать нажатие, и при етом чтоб мышка не двигалась и работала даже если форма свернута или спрятана!
вот сам код программы:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage("Button 1 clicked");
end;
procedure TForm1.Button2Click(Sender: TObject);
var
wpar : WPARAM;
lpar : LPARAM;
begin
lpar:=MAKELPARAM(110,68);
wpar:=MK_LBUTTON;
SendMessage(Form1.Handle,WM_LBUTTONDOWN,wpar,lpar);
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.Label1.Caption:="x="+inttostr(x)+" y="+inttostr(y);
end;
Обьясните мне пожалуйста что я делаю не так!
И будет ли оно работать если моя форма будет свернута или спрятана?
alex_*** (2003-12-04 09:19:00) [1]
Запускаешь WinSight32, натравливаешь на свою прогу, кликаешь мышой и смотришь какие мессаги прошли.
Новичек (2003-12-03 18:05:00) [2]
Мастера подскажите пожалуйста как программно кликать мышкой с помощью SendMessage!
Новичек (2003-11-28 16:22:00) [3]
Люди, подскажите пожалуйста как ето сделать!
Новичек (2003-11-28 10:52:00) [4]
> dataMaster
Яж говорю что мне не подходит через mouse_event!
Сам подумай как он будет работать если окно свернуто (или скрыто)!
mouse_event - ето просто кликание по координатам на рабочем столе!.. может попасть на все что угодно, что будет по данным координатам!
А мне надо посылать сообщение окну своему!
как я понял ето надо делать через SendMessage
Только как ето сделать? Кликать надо по координатам от левого верхнего угла формы моей!
Люди поскажите пожалуйста!
dataMaster (2003-11-27 19:58:00) [5]
procedure TForm1.Button2Click(Sender: TObject);
var
P: TPoint;
begin
// запоминаем текущее положение курсора
GetCursorPos(P);
// ставим курсор куда надо
SetCursorPos(координата х, координата y);
// жмем левую кнопку мыши
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Application.ProcessMessages;
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
// возвращаем курсор на прежнее место
SetCursorPos(P.X, P.Y);
end;
Новичек (2003-11-27 19:42:00) [6]
Та с кнопками ето просто тренируюсь!... Мне надо кликать на все что угодно с нужными координатами в окне!..
dataMaster (2003-11-27 19:38:00) [7]
Прошу прощение, что-то я ахинею какую-то с сообщениями написал... :-)
dataMaster (2003-11-27 19:35:00) [8]
Кликнуть по кнопке Button1 кнопкой Button2 можно так:
procedure TForm1.Button2Click(Sender: TObject);
begin
SendMessage(Button1.Handle,WM_LBUTTONDOWN, Button1.Left+2, Button1.Top+2);
SendMessage(Button1.Handle,WM_LBUTTONUP, Button1.Left+2, Button1.Top+2);
end;
или такButton1.Click;
| |
