Скачать: CL | DM;

Проблемы с MDI !!!   Найти похожие ветки 

← →
Arestotel   (2004-06-14 14:09) [0]

При перемещении дочернего окна в MDI-приложение за область родительского окна появляется полоса прокрутки.
Подскажите плиз как от этого избавиться ?
p.s. Form1.verscrollbar.visible := False не подходит!!!

---

← →
cdadmitriy   (2004-06-14 16:37) [1]

function ClientWindowProc(wnd: HWND; msg: Cardinal; wparam, lparam: Integer ): Integer; stdcall;
 Const WS_MY=WS_HSCROLL or WS_VSCROLL;
 var F: Pointer; L:Longint;
begin
 f := Pointer(GetWindowLong(wnd, GWL_USERDATA ));
 case msg of
   WM_NCCALCSIZE: begin
     L:=GetWindowLong(wnd,GWL_STYLE); if (L and WS_MY)<>0 then SetWindowLong(wnd,GWL_STYLE,L and not WS_MY);
   end;
 end;
 Result := CallWindowProc(f, wnd, msg, wparam, lparam);
end;

---

← →
cdadmitriy   (2004-06-14 16:37) [2]

wnd:=ClientHandle;
 if wnd <> 0 then begin
   if GetWindowLong(wnd, GWL_USERDATA) = 0 then //cannot subclass client window, userdata already in use
   SetWindowLong(wnd, GWL_USERDATA, SetWindowLong(wnd, GWL_WNDPROC, integer(@ClientWindowProc)));
 end;

---

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

Скачать: CL | DM;



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