Форум: "Основная";
Текущий архив: 2005.07.31;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.032 c