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

Вниз

Как обновить окно...   Найти похожие ветки 

 
ANTPro ©   (2007-09-19 17:21) [0]

после смены стиля? К примеру WS_BORDER.


 
Lacmus ©   (2007-09-19 17:37) [1]


 DrawMenuBar(Handle)


 
ANTPro ©   (2007-09-19 17:59) [2]

::DrawMenuBar(pControl->Handle());
::SetWindowPos(pControl->Handle(),NULL,0,0,0,0,SWP_NOMOVE|SWP_NOOWNERZORDER|SWP_NOSIZE|SWP_NOZORDER);
::InvalidateRect(pControl->Handle(),&Rc,TRUE);

Не помогает :(


 
Lacmus ©   (2007-09-19 18:07) [3]


procedure TForm65.Button3Click(Sender: TObject);
begin
 BorderStyle := bsNone;
 IncludeWindowStyle(Handle, WS_BORDER);
 ShowMessage("Stop");
 DrawMenuBar(Handle)
end;


Помогает


 
ANTPro ©   (2007-09-19 18:52) [4]

> [3] Lacmus ©   (19.09.07 18:07)

Угу жаль, что в VS2005 на TWL не скомпилять :)

PS: В KOL всего-то надо

Button.Style := Button.Style or WS_BORDER;

Т.е.

::SetWindowPos(pControl->Handle(), NULL, 0, 0, 0, 0,SWP_NOACTIVATE|SWP_NOMOVE|SWP_NOSIZE|SWP_NOZORDER|SWP_FRAMECHANGED);
::InvalidateRect(pControl->Handle(),NULL,TRUE);

У меня не работает :(


 
ANTPro ©   (2007-09-19 21:12) [5]

Надо было заменить pControl->Handle() на Control()->Handle() и всего-то :)



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
2-1190240140
Corel
2007-09-20 02:15
2007.10.14
Message


2-1189883966
xvost
2007-09-15 23:19
2007.10.14
массивы


15-1189784352
Чайник
2007-09-14 19:39
2007.10.14
UpperCase для кириллицы


2-1190398999
Gloomer
2007-09-21 22:23
2007.10.14
Свойства модема для конкретного соединения удаленного доступа


2-1190382896
emelin
2007-09-21 17:54
2007.10.14
Освобождение объектов