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

Scroll у MDIMain   Найти похожие ветки 

← →
Petro_   (2005-05-23 21:39) [0]

добрый вечер.
Уважаемые мастера скажите можно ли убрать прокрутку
у MdiMain для горизонтали и вертикали при сдвигании
Mdichild.
Спасибо.

---

← →
Johnmen ©   (2005-05-23 22:29) [1]

Можно.
В своё время приводил И.Шевченко, хотя от авторства открещивался :)

procedure TMainForm.FormCreate(Sender: TObject);
begin;
 if ClientHandle<>0 then begin;
   if GetWindowLong(ClientHandle,GWL_USERDATA)<>0 then Exit;
   SetWindowLong(ClientHandle,GWL_USERDATA,
     SetWindowLong(ClientHandle,GWL_WNDPROC,integer(@ClientWindowProc)));
   end;
 end;
----------
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;


---

← →
Игорь Шевченко ©   (2005-05-24 10:06) [2]

Johnmen ©   (23.05.05 22:29) [1]

Автор - Peter Below

---

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

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



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