Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Вниз

Как убрать прокрутку в MDI окне?   Найти похожие ветки 

← →
radiosoft   (2003-11-18 09:59) [0]

Кто знает каким образом можно избавиться от полос прокрутки в родительском MDI окне?

---

← →
Е-Моё имя   (2003-11-18 10:15) [1]

ищи примерно такое:
SetWindowLong( wnd, GWL_STYLE, GetWindowLong( wnd, GWL_STYLE ) and not (WS_HSCROLL or WS_VSCROLL));
и будет щастье

---
nil

---

← →
sniknik   (2003-11-18 10:21) [2]

у главного окна (авторство не мое, когдато снял с форума как интересное, возможно и нерабочее (врядли конечно, там были благодарственные отклики))

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;

---

← →
radiosoft   (2003-11-18 10:31) [3]

Спасибо огромное! Проблема решена!

---

← →
Игорь Шевченко   (2003-11-18 13:01) [4]

sniknik © (18.11.03 10:21)

Автор - Peter Below (TeamB). Пример абсолютно рабочий.

---

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

Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c