Текущий архив: 2005.07.31;
Скачать: CL | DM;
Вниз
Посылка сообщения Найти похожие ветки
← →
webpauk (2005-07-11 17:28) [0]Как Timage послать сообщение OnClick програмно
← →
Ega23 © (2005-07-11 17:29) [1]Image1.OnClick(nil), например.
← →
begin...end © (2005-07-11 17:29) [2]OnClick -- это не сообщение.
← →
webpauk (2005-07-11 17:33) [3]SendMessage(...
← →
begin...end © (2005-07-11 17:37) [4]> webpauk (11.07.05 17:33) [3]
Переформулируйте вопрос.
← →
webpauk (2005-07-11 17:38) [5]
> begin...end ©
Есть у Image событие OnClick. Как програмно отрпавить имиджу сообщение, чтобы запустить код описанный в событии
← →
grusty (2005-07-11 17:41) [6]Image.OnClick(Sender)
← →
webpauk (2005-07-11 17:45) [7]
> grusty
Спасиьо
← →
begin...end © (2005-07-11 17:50) [8]> webpauk (11.07.05 17:38) [5]
> Как програмно отрпавить имиджу сообщение, чтобы
> запустить код описанный в событии
Последовательно послать WM_LBUTTONDOWN и WM_LBUTTONUP, используя метод Perform и не забывая про координаты.
← →
Alexander Panov © (2005-07-11 18:07) [9]
var
Msg: TMessage;
Point: TPoint;
begin
GetCursorPos(Point);
Point := Form1.ScreenToClient(Point);
Msg.Msg := WM_LBUTTONDOWN;
Msg.WParam := 0;
Msg.LParamLo := Point.X;
Msg.LParamHi := Point.Y;
Form1.Dispatch(Msg);
Msg.Msg := WM_LBUTTONUP;
Form1.Dispatch(Msg);
Страницы: 1 вся ветка
Текущий архив: 2005.07.31;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.024 c
