VPF::Как скрыть scrollbar'ы в MDIForm? - Форум программистов

iDeus

Дата 20.9.2011, 10:12 (ссылка)

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

Загрузка ...

Deus vult

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

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

Здравствуйте, подскажите пожалуйста, как в C++ Builder XE сделать так, что бы при выходе потомка за пределы формы родителя, не появлялись скроллбары?

Все варианты со стандартными параметрами, вроде AutoScroll перепробовал.

В интернете нашел только код на Delphi. Но это мало чем помогло. Может кто-то поможет адаптировать его под bcb или подскажет другой способ?

Спасибо.

Найденный пример:

Код


{ Избавление от ScrollBar'ов в MDI-форме. (С) Peter Below (TeamB)              }
{ Не надо VCL переписывать :-)                                                 }
 
unit MainForm;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus;
 
type
  TfMain = class(TForm)
    MainMenu1: TMainMenu;
    Newchild1: TMenuItem;
    Newchild2: TMenuItem;
    procedure Newchild2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  fMain: TfMain;
 
implementation
 
uses ChildForm;
 
{$R *.DFM}
 
procedure TfMain.Newchild2Click(Sender: TObject);
begin
  with TfChild.Create(Application) do
    Show();
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;
 
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;
 
end.

artsb

Дата 20.9.2011, 11:10 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

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

Добавляете в проект функцию:

Код


int __stdcall ClientWindowProc(HWND hwnd, unsigned int msg, unsigned int wparam, long lparam)
{
    long f = GetWindowLong(hwnd, GWL_USERDATA);

    switch(msg)
    {
        case WM_NCCALCSIZE:
        {
            if((GetWindowLong(hwnd, GWL_STYLE) & (WS_HSCROLL | WS_VSCROLL)) != 0)
            {
                SetWindowLong(hwnd, GWL_STYLE,
                        GetWindowLong(hwnd, GWL_STYLE) & (~(WS_HSCROLL | WS_VSCROLL)));
            }
            break;
        }
        default:
        {
            break;
        }
    }

    return CallWindowProc((WNDPROC)f, hwnd, msg, wparam, lparam);
}

И в OnCreate главной формы пишите:

Код


void __fastcall TForm1::FormCreate(TObject *Sender)
{
    if(this->ClientHandle != 0)
    {
        if(GetWindowLong(this->ClientHandle, GWL_USERDATA) == 0)
        {
            SetWindowLong(this->ClientHandle, GWL_USERDATA,
                    SetWindowLong(this->ClientHandle,
                    GWL_WNDPROC, (long)ClientWindowProc));
        }
    }
}

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

Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.

iDeus

Дата 20.9.2011, 11:33 (ссылка)

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

Загрузка ...

Deus vult

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

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

artsb, в Main.h добавил функцию руками, как private

Код


private:    // User declarations
int __stdcall ClientWindowProc(HWND hwnd, unsigned int msg, unsigned int wparam, long lparam);

описание - в Main.cpp.

Без добавления кода в OnCreate компилируется без ошибок.

При добавлении - ошибка:

Код


 [BCC32 Error] rMain.cpp(36): E2235 Member function must be called or its address taken
  Full parser context
    rMain.cpp(21): parsing: void _fastcall TMainForm::FormCreate(TObject *)

в строке:

Код


SetWindowLong(this->ClientHandle, GWL_USERDATA,
                    SetWindowLong(this->ClientHandle,
                    GWL_WNDPROC, (long)ClientWindowProc));

Похоже, что неверно добавил функцию в проект?

Это сообщение отредактировал(а) iDeus - 20.9.2011, 11:40

artsb

Дата 20.9.2011, 11:52 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

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

Цитата(iDeus @ 20.9.2011, 11:33

)

Похоже, что неверно добавил функцию в проект?

Совершенно верно.
ClientWindowProc - не должна быть членом класса формы.

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

iDeus

Дата 20.9.2011, 12:04 (ссылка)

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

Загрузка ...

Deus vult

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

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

artsb, спасибо большое. не первый раз помогаете. (=

вынес функцию за класс и все заработало.

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