Как в MDI-application избавиться от появления ScroollBar,

← →
Vladimir Prokofiev (2002-08-01 14:22) [0]

когда дочерняя форма залезает за край основной. Как это сделано у Word, например.

← →
MrAngel © (2002-08-01 14:49) [1]

Просто поставь (в свойствах для скролов) Visible:=False

← →
Song © (2002-08-01 15:30) [2]

не поможет. Тут нужен спец обработчик

← →
Dmk © (2002-08-03 01:20) [3]

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 Exit; {cannot subclass client window, userdata already in use}
SetWindowLong(ClientHandle, GWL_USERDATA, SetWindowLong(ClientHandle,
GWL_WNDPROC, integer(@ClientWindowProc)));
end;
end;

Как в MDI-application избавиться от появления ScroollBar, Найти похожие ветки