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

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

Handle [D6, WinXP]

webpauk ©   (2007-04-25 13:18:00) 

{myObj} const
WM_ACTION = WM_USER+1;

type
TmyObj = class(TObject)
private
 Image: Timage;
 procedure WMACTION(var MSG: TMessage); message WM_ACTION;
public
 constructor Create;
end;

constructor TmyObj.Create;
begin
Image:=Timage.create(Self);
Image.OnClick:=Form1.ImageClick;
end;

procedure TmyObj .WMACTION(var MSG: TMessage);
begin
doSomething
end;

{Tform1}
procedure TForm1.ImageClick(Sender: Tobject);
begin
SendMessage(TImage(Sender).Owner....
end;

как послать сообщение TImage(Sender).Owner=TmyObj?

---

SpellCaster   (2007-04-26 10:31:00) [1]


constructor TmyObj.Create;
begin
Image:=Timage.create(Self);
Image.OnClick:=ImageClick;
end;

procedure TmyObj.ImageClick(Sender: Tobject);
begin
doSomething
end;


И не надо изобретать велосипед...

---

Сергей М.   (2007-04-25 15:29:00) [2]

> Darvin ©   (25.04.07 15:13) [3]


Намек бесспорно хорош, но к ответу на конкретныйвопрос отношения не имеет.

---

Darvin   (2007-04-25 15:13:00) [3]

Dispath

---

Сергей М.   (2007-04-25 13:27:00) [4]

Никак.

---

webpauk   (2007-04-25 13:26:00) [5]

SendMessage(TMyObj(TImage(Sender).Owner). ? , WM_ACTION, 0, 0)

---

Наверх