Форум: "Начинающим";
Текущий архив: 2008.10.19;
Скачать: [xml.tar.bz2];
Вниз
Как убрать полосы прокрутки в родительской форме MDI приложения? Найти похожие ветки
← →
Totaren (2008-09-15 18:15) [0]При перемещении дочерних форм, захождении за границу родительской, в ней появляются полосы прокрутки. Каким образом этого избежать?
← →
Palladin © (2008-09-15 18:16) [1]а зачем?
← →
Totaren (2008-09-15 18:46) [2]Жизнь диктует такие условия....
← →
Palladin © (2008-09-15 18:46) [3]жизнь будет потом диктовать условия вытаскивания окон из невидимой области
← →
Totaren (2008-09-15 18:57) [4]Вот прям и не поспоришь.
← →
MsGuns © (2008-09-16 11:04) [5]Заменить MDI на SDI - скрулбары пропадут
← →
sniknik © (2008-09-16 11:20) [6]
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 TForm1.FormCreate(Sender: TObject);
begin
if ClientHandle <> 0 then
if GetWindowLong(ClientHandle, GWL_USERDATA) = 0 then
SetWindowLong(ClientHandle, GWL_USERDATA, SetWindowLong(ClientHandle,
GWL_WNDPROC, integer(@ClientWindowProc)));
end;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.10.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c
