| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Totaren ©   (2008-09-15 18:15:00) 

При перемещении дочерних форм, захождении за границу родительской, в ней появляются полосы прокрутки. Каким образом этого избежать?

---

sniknik   (2008-09-16 11:20:00) [1]

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;

---

MsGuns   (2008-09-16 11:04:00) [2]

Заменить MDI на SDI - скрулбары пропадут

---

Totaren   (2008-09-15 18:57:00) [3]

Вот прям и не поспоришь.

---

Totaren   (2008-09-15 18:46:00) [4]

Жизнь диктует такие условия....

---

Palladin   (2008-09-15 18:46:00) [5]

жизнь будет потом диктовать условия вытаскивания окон из невидимой области

---

Palladin   (2008-09-15 18:16:00) [6]

а зачем?

---

Наверх