Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.23;
Скачать: CL | DM;

Вниз

Как в MDI-application избавиться от появления ScroollBar,   Найти похожие ветки 

 
Vladimir Prokofiev   (2002-08-01 14:22) [0]

когда дочерняя форма залезает за край основной. Как это сделано у Word, например.


 
MrAngel ©   (2002-08-01 14:49) [1]

Просто поставь (в свойствах для скролов) Visible:=False


 
Song ©   (2002-08-01 15:30) [2]

не поможет. Тут нужен спец обработчик


 
Dmk ©   (2002-08-03 01:20) [3]

:)


 
Dmk ©   (2002-08-03 01:39) [4]

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 TMainForm.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;



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

Текущий архив: 2002.09.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
6-73794
SuN_Alex
2002-07-20 03:59
2002.09.23
Как подключится к IP IPC$ ?


1-73673
MsGuns
2002-09-09 22:41
2002.09.23
Cовместимость C++ Builder5 & Delphi 6


6-73787
Alex_LG
2002-07-07 22:48
2002.09.23
Как узнать имеет ли машина


14-73818
TCrash
2002-08-23 18:13
2002.09.23
Интересно


3-73536
Elenka
2002-08-30 16:07
2002.09.23
Хранимая процедура