Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];

Вниз

Проблемы с MDI !!!   Найти похожие ветки 

 
Arestotel   (2004-06-14 14:09) [0]

При перемещении дочернего окна в MDI-приложение за область родительского окна появляется полоса прокрутки.
Подскажите плиз как от этого избавиться ?
p.s. Form1.verscrollbar.visible := False не подходит!!!


 
cdadmitriy   (2004-06-14 16:37) [1]

function ClientWindowProc(wnd: HWND; msg: Cardinal; wparam, lparam: Integer ): Integer; stdcall;
 Const WS_MY=WS_HSCROLL or WS_VSCROLL;
 var F: Pointer; L:Longint;
begin
 f := Pointer(GetWindowLong(wnd, GWL_USERDATA ));
 case msg of
   WM_NCCALCSIZE: begin
     L:=GetWindowLong(wnd,GWL_STYLE); if (L and WS_MY)<>0 then SetWindowLong(wnd,GWL_STYLE,L and not WS_MY);
   end;
 end;
 Result := CallWindowProc(f, wnd, msg, wparam, lparam);
end;


 
cdadmitriy   (2004-06-14 16:37) [2]

wnd:=ClientHandle;
 if wnd <> 0 then begin
   if GetWindowLong(wnd, GWL_USERDATA) = 0 then //cannot subclass client window, userdata already in use
   SetWindowLong(wnd, GWL_USERDATA, SetWindowLong(wnd, GWL_WNDPROC, integer(@ClientWindowProc)));
 end;



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

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

Наверх




Память: 0.44 MB
Время: 0.036 c
3-1085978892
angelcom
2004-05-31 08:48
2004.06.27
Опять может повторюсь...


1-1087277090
Salik
2004-06-15 09:24
2004.06.27
IncMonth на оборот?


8-1081335124
ЁПРСТ
2004-04-07 14:52
2004.06.27
Размер картинки в TBitmap


14-1084695837
Alexander666
2004-05-16 12:23
2004.06.27
Евровидение 2004!!!


1-1086778243
Shaman
2004-06-09 14:50
2004.06.27
Как обнулить переменную Currency





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский