Скачать: CL | DM;

Программно нажать мышь   Найти похожие ветки 

← →
newby   (2007-05-02 18:00) [0]

Добрый день, мастера!
Как программно навести мышь на кнопку и симитировать нажатие левой кнопки мыши, чтобы сработал обработчик кнопки?
Спасибо

---

← →
clickmaker ©   (2007-05-02 18:47) [1]

mouse_event()
но можно и Button.Click()

---

← →
Leonid Troyanovsky ©   (2007-05-02 19:33) [2]

> newby   (02.05.07 18:00)  

> Как программно навести мышь на кнопку и симитировать нажатие
> левой кнопки мыши, чтобы сработал обработчик

IMHO: проще апгрейдить мышь:
1. установить ей драйвер самонаведения на кнопку
2. купить ему кнопкоимитатор нажатий (левый,
но можно хоть китайский).

--
Regards, LVT.

---

← →
Rial ©   (2007-05-02 19:41) [3]

procedure SetMousePos(Const Event : DWord; Const X, Y : Integer);
begin
Mouse_Event(Event or MOUSEEVENTF_ABSOLUTE,
            Round((MaxWord + 1) / GetScreenWidth * X),
            Round((MaxWord + 1) / GetScreenHeight * Y),
            0, 0);
end;

procedure MouseClick(Const X, Y : DWord);
begin
SetMousePos(MOUSEEVENTF_MOVE,     X, Y);
SetMousePos(MOUSEEVENTF_LEFTDOWN, X, Y);
Sleep(5);
SetMousePos(MOUSEEVENTF_LEFTUP,   X, Y);
end;

function GetScreenHeight : Integer;
begin
Result :=GetSystemMetrics(SM_CYSCREEN);
end;

function GetScreenWidth : Integer;
begin
Result :=GetSystemMetrics(SM_CXSCREEN);
end;

P.S.
"SetMousePos" - название несколько не отражает сути, ну уж как назвал %)

---

← →
newby   (2007-05-02 19:47) [4]

to Leonid Troyanovsky
спасибо за совет :)))
но мне он не пригодится
просто пришел студент с задачей по сабжу, а я в основном с БД работаю и такие хитрости с мышкой мне не за надобностью, а ему что-то там сдавать надо, вот уроды-преподы совсем от жизни оторвались :)

---

← →
newby   (2007-05-02 19:50) [5]

to Rial
Спасибо!
Буду разбираться с Вашим кодом

---

← →
Rial ©   (2007-05-02 19:53) [6]

> [4] newby   (02.05.07 19:47)
вот уроды-преподы совсем
> от жизни оторвались :)

Позволю себе наглость, заметив, что работа
с БД - наибольший отрыв от жизни %)
Все то там скучно и монотонно :)

---

← →
newby   (2007-05-02 20:06) [7]

to Rial
"Борис ты не прав" :)
Базы Данных - это и есть наша жизнь в основном, куда без них :)

---

← →
newby   (2007-05-03 12:08) [8]

Спасибо, Rial ©!
все работает

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c