| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Посылка сообщения [D6, WinXP]

webpauk ©   (2005-07-11 17:28:00) 

Как Timage послать сообщение OnClick програмно

---

Alexander Panov   (2005-07-11 18:07:00) [1]

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


---

begin...end   (2005-07-11 17:50:00) [2]

> webpauk   (11.07.05 17:38) [5]

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

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

---

webpauk   (2005-07-11 17:45:00) [3]

> grusty

Спасиьо

---

grusty   (2005-07-11 17:41:00) [4]

Image.OnClick(Sender)

---

webpauk   (2005-07-11 17:38:00) [5]

> begin...end ©  

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

---

begin...end   (2005-07-11 17:37:00) [6]

> webpauk   (11.07.05 17:33) [3]

Переформулируйте вопрос.

---

webpauk   (2005-07-11 17:33:00) [7]

SendMessage(...

---

Ega23   (2005-07-11 17:29:00) [8]

Image1.OnClick(nil), например.

---

begin...end   (2005-07-11 17:29:00) [9]

OnClick -- это не сообщение.

---

Наверх