Главная страница
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.017 c
2-1189868932
Tonich
2007-09-15 19:08
2007.10.14
Сервис


2-1190494288
Pa5ha
2007-09-23 00:51
2007.10.14
Адрес метода класса :)


1-1185737196
oxffff
2007-07-29 23:26
2007.10.14
Очередной баг или так и задумано


15-1189674415
Евгеней
2007-09-13 13:06
2007.10.14
ПДД


15-1189775301
Dumb
2007-09-14 17:08
2007.10.14
Как создать интерфейс для Базы данных?