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

Вниз

Как сделать, чтобы в главном MDI окне не появлялись полосы прокру   Найти похожие ветки 

 
Tria ©   (2005-01-20 13:07) [0]

тки при выходе дочернего окна за пределы главного?


 
sniknik ©   (2005-01-20 13:43) [1]

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 {cannot subclass client window, userdata already in use}
    SetWindowLong(ClientHandle, GWL_USERDATA, SetWindowLong(ClientHandle,
                                GWL_WNDPROC, integer(@ClientWindowProc)));
  end;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.053 c
14-1105604370
Рамиль
2005-01-13 11:19
2005.01.30
Сообщения MAILER-DAEMON


1-1106209235
HF-Trade
2005-01-20 11:20
2005.01.30
Открытие файла с любым из зарегистрированных расширений


14-1105447298
}|{yk
2005-01-11 15:41
2005.01.30
Самые известные высказывания Буша, собранные Умберто Эко.


4-1102500909
maxistent
2004-12-08 13:15
2005.01.30
Работа с COM ами...


1-1105781773
user101
2005-01-15 12:36
2005.01.30
Pchar To String