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

Вниз

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

← →
Grigoriev   (2003-03-04 13:13) [0]

Подскажите как работает WM_MDIGETACTIVE, и если можно с примером.

---

← →
Игорь Шевченко ©   (2003-03-04 13:24) [1]

hWnd := SendMessage(MyMDIForm.ClientHandle, WM_MDIGETACTIVE, 0, 0);

Для получения Handle активного MDI-Child"a, как следует из названия.

---

← →
Grigoriev   (2003-03-04 13:26) [2]

А как правильно перехватить это сообщение из родительского окна

---

← →
Игорь Шевченко ©   (2003-03-04 13:28) [3]

А это надо перехватывать оконную процедуру у клиентского окна MDI.

procedure TfMain.FormCreate(Sender: TObject);
begin
FClientInstance := MakeObjectInstance(ClientWndProc);
FPrevClientProc := Pointer(GetWindowLong(ClientHandle,
GWL_WNDPROC));
SetWindowLong(ClientHandle,
GWL_WNDPROC, LongInt(FClientInstance));
end;

procedure TfMain.ClientWndProc(var Message: TMessage);
begin
with Message do
case Msg of
WM_MDIGETACTIVE:
begin
Result := CallWindowProc(FPrevClientProc,
ClientHandle,
Msg,
wParam,
lParam);
.....
else
Result := CallWindowProc(FPrevClientProc,
ClientHandle,
Msg,
wParam,
lParam);
end;
end;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.157 c