Главная страница
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.019 c
1-73697
ЮРИЙ_К
2002-09-03 11:22
2002.09.23
Функция переноса строки


3-73505
malax
2002-08-30 11:18
2002.09.23
перенос данных на SQL-сервер осуществлялся быстрее.


7-73914
Ascan_
2002-07-12 14:57
2002.09.23
Отсылаем 13к, а доходит только 8к.


4-73926
stainer
2002-08-04 01:50
2002.09.23
не работает сообщение диалогового окна


14-73850
Darts
2002-08-28 13:44
2002.09.23
Другие компиляторы Pascal