Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Вниз

MDIForm не показывать полосы прокрутки   Найти похожие ветки 

← →
Dmva ©   (2004-06-03 10:49) [0]

Есть MDIForm и как только chaild форма выходит за пределы MDIForm
то у MDIForm появляються полосы покрутки. При этом установка
Horz/Vert ScrollBar.visible=false autoscroll=false НЕ помогает (почему-то.....)
Собственно как убрать эти полосы прокрутки у MDIForm совсем?

---

← →
Johnmen ©   (2004-06-03 11:19) [1]

Когда-то предложено Игорем Шевченко ©. Работоспособно.

В OnCreate формы
 if ClientHandle<>0 then begin;
   if GetWindowLong(ClientHandle,GWL_USERDATA)<>0 then Exit;
   SetWindowLong(ClientHandle,GWL_USERDATA,
     SetWindowLong(ClientHandle,GWL_WNDPROC,integer(@ClientWindowProc)));
   end;

Сама функция ClientWindowProc
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;

---

← →
Dmva ©   (2004-06-03 11:30) [2]

Спасибо!

---

← →
Игорь Шевченко ©   (2004-06-03 12:18) [3]

Johnmen ©   (03.06.04 11:19)

Просьба вставлять (с) Peter Below, хорошо ? :))

---

← →
Johnmen ©   (2004-06-03 12:31) [4]

>Игорь Шевченко ©   (03.06.04 12:18) [3]

Так если бы знаемо, то не вопрос...:)

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.057 c