Как убрать прокрутку в MDI окне?

← →
radiosoft (2003-11-18 09:59) [0]

Кто знает каким образом можно избавиться от полос прокрутки в родительском MDI окне?

← →
Е-Моё имя (2003-11-18 10:15) [1]

ищи примерно такое:
SetWindowLong( wnd, GWL_STYLE, GetWindowLong( wnd, GWL_STYLE ) and not (WS_HSCROLL or WS_VSCROLL));
и будет щастье

---
nil

← →
sniknik (2003-11-18 10:21) [2]

у главного окна (авторство не мое, когдато снял с форума как интересное, возможно и нерабочее (врядли конечно, там были благодарственные отклики))

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

procedure TMainForm.FormCreate(Sender: TObject);
begin
if ClientHandle <> 0 then begin
if GetWindowLong(ClientHandle, GWL_USERDATA) = 0 then {cannot subclass client window, userdata already in use}
SetWindowLong(ClientHandle, GWL_USERDATA, SetWindowLong(ClientHandle,
GWL_WNDPROC, integer(@ClientWindowProc)));
end;
end;

← →
radiosoft (2003-11-18 10:31) [3]

Спасибо огромное! Проблема решена!

← →
Игорь Шевченко (2003-11-18 13:01) [4]

Как убрать прокрутку в MDI окне? Найти похожие ветки