Програмно натиснути миша
Добрий день, майстри!
Як програмно навести курсор на кнопку і зімітувати натискання лівої кнопки миші, щоб спрацював обробник кнопки?
Дякуємо
mouse_event ()
але можна і Button.Click ()
> newby # XA0; (02.05.07 18:00) # XA0;
> Як програмно навести курсор на кнопку і зімітувати натискання
> Лівої кнопки миші, щоб спрацював обробник
IMHO: простіше апгрейдити миша:
1. встановити їй драйвер самонаведення на кнопку
2. купити йому кнопкоімітатор натискань (лівий,
але можна хоч китайський).
procedure SetMousePos (Const Event. DWord; Const X, Y. Integer);
begin
Mouse_Event (Event or MOUSEEVENTF_ABSOLUTE,
# XA0; # XA0; # XA0; # XA0; # XA0; # XA0; Round ((MaxWord + 1) / GetScreenWidth * X),
# XA0; # XA0; # XA0; # XA0; # XA0; # XA0; Round ((MaxWord + 1) / GetScreenHeight * Y),
# XA0; # XA0; # XA0; # XA0; # XA0; # XA0; 0, 0);
end;
procedure MouseClick (Const X, Y. DWord);
begin
SetMousePos (MOUSEEVENTF_MOVE, # XA0; # XA0; X, Y);
SetMousePos (MOUSEEVENTF_LEFTDOWN, X, Y);
Sleep (5);
SetMousePos (MOUSEEVENTF_LEFTUP, # XA0; X, Y);
end;
function GetScreenHeight. Integer;
begin
Result: = GetSystemMetrics (SM_CYSCREEN);
end;
function GetScreenWidth. Integer;
begin
Result: = GetSystemMetrics (SM_CXSCREEN);
end;
P.S.
"SetMousePos" - назва дещо не відображає суті, ну вже як назвав%)
to Leonid Troyanovsky
спасибі за пораду :)))
але мені він не стане в нагоді
просто прийшов студент з завданням по сабжу, а я в основному з БД працюю і такі хитрощі з мишкою мені нема за потребою, а йому щось там здавати треба, ось виродки-препод зовсім від життя відірвалися :)
to Rial
Дякуємо!
Буду розбиратися з Вашим кодом
> [4] newby # XA0; (02.05.07 19:47)
ось виродки-препод зовсім
> Від життя відірвалися :)
Дозволю собі нахабство, помітивши, що робота
з БД - найбільший відрив від життя%)
Все то там нудно і монотонно :)
to Rial
"Борис ти не правий" :)
Бази Даних - це і є наше життя в основному, куди без них :)