Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Уважаемые ! Как побороть эффект

UnDISCOvery © (2002-03-04 12:14:00)
Вот наткнулся на пренеприятный эффект: есть основная форма, на ней есть 3 панельки, которые по таймеру, каждую секунду, произвольно меняют свой цвет. И есть кнопка - нажав которую, пользователь получает на экран еще одно окошко. Рождается оно так:
var
TmpWin: TForm2;
begin
TmpWin:= TForm2.Create(Application);
TmpWin.Parent:= PanelShow;
... установка заголовка и положение в панели ...
TmpWin.Show;
end;
Так вот, когда мышкой хватаешь за заголовок этого самого нового окна, то панели ПЕРЕСТАЮТ ПЕРЕКРАШИВАТЬСЯ. Причем не из-за того что не возниакет собитые OnPaint, а из-за того что не возникает событие OnExecute в Timer1 !!! Все это дело висит на "паузе" дл тех пор пока не отпустишь заголовок окна.
КАК ПОБОРОТЬ ? Как заставить панельки перерисовываться ВСЕГДА ???

UnDISCOvery (2002-03-05 16:23:00) [1]
2 Kozhanov
не помогло ... переполнение стэка

Kozhanov (2002-03-04 17:14:00) [2]
> UnDISCOvery
Нужно сначала наследовать родительский метод.
Добавь inherited, а потом application.processmessages.

UnDISCOvery (2002-03-04 16:28:00) [3]
2 Kozhanov: А поподробнее можно ? что за сообщение ? что делать в его перехватчике ?
попробывал просто ставить application.processmessages();
вызвало ошибку переполнения стэка.

UnDISCOvery (2002-03-04 16:11:00) [4]
поправка: на Д6 с Вин2000 все нормально.

Aleksandr (2002-03-04 15:35:00) [5]
Ну, в общем-то лучше всего создать потомка от TThread, в констракторе добавить параметром массив Handle, а в Execute:

while NOT Terminated do begin
for i:=0 to length(HandleArray)-1 do
if HandleArray[i]>0 then
// найти объект с этим хэндлом и изменить его цвет
Sleep(100)
end;...
Абсолютно не тормозит, проверил...

Nebula (2002-03-04 12:56:00) [6]
Странно,но все работает (D6, W2000AS). Никакой паузы не возникает. В любом случае можно создать отдельный поток и в нем менять цвета. Как ты меняешь цвет? Я, просто, менял Panel1.Color в OnTimer.

Kozhanov (2002-03-04 12:29:00) [7]
уточнение : TForm2.NCHitTest -> TForm2.WMNCHitTest

Kozhanov (2002-03-04 12:21:00) [8]
> UnDISCOvery
А ежели перекрыть метод TForm2.NCHitTest и поставить
там Application.ProcessMessages...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »