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

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

MDIForm without scrollbars [D7, WinXP]

Smok_er ©   (2003-01-07 20:54:00) 

Мастера!
При использовании MDI при невлезании MDIChild"ов у основного окна появляются скроллеры.
Как от них избавиться?

---

Smok_er   (2003-01-08 00:53:00) [1]

Diamond Cat © (08.01.03 00:02)
а через ShowScrollBar не проще?
Попробуй, авось и получится. У меня к сожалению не получилось :(

Огромнейшее спасибо!
А может кто-нибудь дать ссылки на доки по работе с MDI? Т.е. интересует, как избавляться от Caption"a дочерней формы в заглавной и т.д. без правки VCL.

---

Diamond Cat   (2003-01-08 00:02:00) [2]

а через ShowScrollBar не проще?

---

Song   (2003-01-07 22:50:00) [3]

2Оливейра © (07.01.03 22:47)
Ну чего получилось поймать WM_NCCALCSIZE, описав его в классе? :-)))

---

Оливейра   (2003-01-07 22:47:00) [4]

Ай, да, век живи век учись :-)

---

Song   (2003-01-07 21:58:00) [5]

RTFM, товарищ!

Provides access to the handle of the form’s internal MDI client window.

property ClientHandle: HWND;

Description

Use ClientHandle to get the handle for the form’s internal MDI client window.

ClientHandle is meaningful only if the form is an MDI parent (that is, if the form’s FormStyle property is set to fsMDIForm).

Note: Use the Handle property instead to get the handle to the form window itself.

---

Song   (2003-01-07 21:56:00) [6]

Ну попробуй.. попробуй.. умник нашёлся.. :-)

---

Оливейра   (2003-01-07 21:50:00) [7]

Какой хакерский код :-)

А кто такой ClientHandle? :)

Уй мама рОдная :-) А нахрена в WndProc лезть-то, а?
procedure CalcSize(var Msg: TMessage); message WM_NCCALCSIZE; в клиенте назначить?

---

Song   (2003-01-07 21:21:00) [8]


{ Избавление от 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.

---

Наверх