Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.029 c
9-369
Анат
2002-08-24 18:06
2003.05.01
А нужны ли они, квесты ?


6-670
SergeT
2003-03-04 23:39
2003.05.01
TAPI


1-523
Nik Gorunov
2003-04-20 10:59
2003.05.01
Странного StringGrid’а хочу.


3-435
Glivinsky
2003-04-04 23:01
2003.05.01
Как отобразить результат StoredProc in Greed ?


3-481
Nikos
2003-04-14 16:51
2003.05.01
помогите выбрать оптималную базу данных