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

Как убрать полосы прокрутки в родительской форме 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 вся ветка

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



Память: 0.46 MB
Время: 0.008 c