Вызвать событие

← →
Serghei (2002-01-22 17:17) [5]

Jorchick © (21.01.02 14:04)
Народ, подскажите как эмулировать нажатия кнопки мышки.

--------------------------------------------------------------------------------
Serghei (21.01.02 14:39)
Component.Perform(WM_LBUTTONDOWN ili WM_RBUTTONDOWN,...) и далее по хелпу если не ошибаюсь!

Удачи!

--------------------------------------------------------------------------------
МИФИст © (21.01.02 17:33)
Если я правильно тебя понял, то в 6 Дельфях:
например:
Form1.Button1.Click;
а в других вот так:
Form1.Button1Click(Button2); в качестве Sender, может быть что угодно. (Здесь при нажатии на кн.2 будет выполняться действия кн.1).

--------------------------------------------------------------------------------
BiJi © (21.01.02 18:16)
Вот процедура опускает и поднимает левую кнопку мыши не перемещая её по экрану

procedure TForm1.MClick;
begin
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0,0,0,0);

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0,0,0,0);
end;

--------------------------------------------------------------------------------
Victorbur (22.01.02 12:23)
SendMessage({где кликать}, WM_LBUTTONDOWN, 0, 0);
SendMessage(bbOk.Handle, WM_LBUTTONUP, 0, 0);

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

Вызвать событие Найти похожие ветки