Задваивается изображение формы
Страницы:
<
1
2
3
>
delhpiCasual © (2012-07-13 06:56:00)
создана форма tv. В один прекрасный момент вызывается команда
tv.Show;
затем много раз по ходу выполнения вызывается процедура:
Procedure RefreshTV(tbmp: TBitmap);
begin
tv.Left := 0;
tv.Top := 0;
tv.Height := tbmp.Height + 100;
tv.Width := tbmp.Width + 100;
tv.Image1.Left := 0;
tv.Image1.Top := 0;
tv.Image1.Height := tbmp.Height;
tv.Image1.Width := tbmp.Width;
tv.Image1.Picture.Assign(tbmp);
tv.Refresh;
end;
после первой команды форма появляется примерно в центре
экрана. Процедура же ее перемещает в верхний угол и меняет размеры.
и рисует в ней картинку. В режиме отладки так все оно и происходит.
Но если запускать exe файл непосредственно, или в режиме исполнения
из делфи, то после первоначального появления формы на ней вдруг
появляется надпись (не отвечает). А в верхнем углу появляется
вторая такая же форма, а первая никуда не исчезает и ее размеры не
меняются под размер картинки, но картинка исправно выводится в обе
формы. основное окно программы и первую форму можно перетаскивать
мышкой по рабочему столу, в то время как "правильная форма" никаким
манипуляциям не поддается. Что за ужас?
Омлет (2012-07-13 07:51:00) [41]
> Что за ужас?
Ошибка в программе.
Страницы:
<
1
2
3
>
Наверх 
ЧАТ |
Орешник |
|
