Посылка сообщения

← →
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

Спасиьо

> webpauk (11.07.05 17:38) [5]

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

Последовательно послать WM_LBUTTONDOWN и WM_LBUTTONUP, используя метод Perform и не забывая про координаты.

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);

Посылка сообщения Найти похожие ветки