VPF::Как убрать полосы прокруткии на форме?

santilaas

Дата 4.6.2007, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет

Привет всем!
Имеется MDI-приложение. Мне нужно, чтобы на главной форме при перемещении дочерних окон за границы главного окна НЕ появлялись полосы прокрутки. Я поставил Visible для вертикального и горизонтального Scrollbar-a в False и установил AutoScroll в False - но полосы прокрутки все равно появляются.
Заранее спасибо!

Это сообщение отредактировал(а) santilaas - 6.6.2007, 17:15

--------------------

[

Poseidon

Дата 4.6.2007, 20:28 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код


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 TfMain.FormCreate(Sender: TObject); 
begin 
  if ClientHandle <> 0 then begin 
    if GetWindowLong( ClientHandle, GWL_USERDATA ) <> 0 then 
      Exit;  {cannot subclass client window, userdata already in use} 
    SetWindowLong(ClientHandle, GWL_USERDATA, SetWindowLong( ClientHandle, 
                                GWL_WNDPROC, integer( @ClientWindowProc))); 
end; 

end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

santilaas

Дата 6.6.2007, 17:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет

Poseidon, спасибо за помощь. Хоть позже я такой же пример нашел в DRKB - ты свой "+" к репутации заслужил

--------------------

[

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »