Текущий архив: 2002.06.20;
Скачать: CL | DM;

Вниз

получить Иконки в MDIChild ах через Messages...   Найти похожие ветки 

← →
Dr. Web ©   (2002-06-07 15:47) [0]

Доброго времени суток Дамы и Господа!
сижу я тут копаю компоненту ElegantMDI
и возник у меня вопрос:
как через messages
выловить иконку MDIChild"a?
caption его вылавливает такая феня:

....
InstanceChildWndProc := MakeObjectInstance(ChildWndProc);
OldChildWndProc := Pointer(GetWindowLong(Handle,GWL_WNDPROC));
SetWindowLong(Handle, GWL_WNDPROC, Longint(InstanceChildWndProc));
.....

procedure TChild.ChildWndProc(var Message: TMessage);
begin
Case Message.msg of
WM_GETTEXT:
begin
Message.Result:= CallWindowProc(OldChildWndProc, Handle, Message.Msg, Message.WParam, Message.LParam);
Button.Caption := Copy(PChar(Message.LParam),1,12);
//PChar(Message.LParam) как раз и выдает caption
end;
end;

А как поймать иконку окна?

---

← →
Dr. Web ©   (2002-06-08 00:12) [1]

Народ, ну что, никто с ВинАПИ не игрался? :(

---

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

Текущий архив: 2002.06.20;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.009 c