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

Вниз

Handle   Найти похожие ветки 

← →
webpauk   (2007-04-25 13:18) [0]

{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?

---

← →
webpauk   (2007-04-25 13:26) [1]

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

---

← →
Сергей М. ©   (2007-04-25 13:27) [2]

Никак.

---

← →
Darvin ©   (2007-04-25 15:13) [3]

Dispath

---

← →
Сергей М. ©   (2007-04-25 15:29) [4]

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


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

---

← →
SpellCaster   (2007-04-26 10:31) [5]


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

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


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

---

Страницы: 1 вся ветка

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

Наверх

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