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]

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

А это надо перехватывать оконную процедуру у клиентского окна 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;

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