Текущий архив: 2004.12.12;
Скачать: CL | DM;
Вниз
Почему не работает код? Найти похожие ветки
← →
Ищущий ответ (2004-11-30 21:33) [0]На форме Panel1 и ColorDialog1. Имеется код:
procedure TForm1.Panel1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Panel1.Color := ColorDialog1.Color;
end;
Всё работает нормально, но стоит на форму бросить XPManifest1 из закладки Win32 и цвет панели перестаёт изменяться. В чём проблема?
← →
OneFragLeft © (2004-11-30 21:49) [1]Поставь все св-ва начинающиеся с Parent у панели в False;
← →
Ищущий ответ (2004-11-30 21:56) [2]Поставил. Не работает. Почему?
← →
OneFragLeft © (2004-11-30 22:04) [3]Вот так?
object Panel1: TPanel
...
BiDiMode = bdLeftToRight
...
Ctl3D = True
...
ParentBiDiMode = False
ParentBackground = False
ParentCtl3D = False
ParentFont = False
ParentColor = False
ParentShowHint = False
....
OnClick = Panel1Click
end
← →
Ищущий ответ (2004-11-30 22:09) [4]Да. В инспекторе объектов установил именно так. Только OnClick := Panel1Click. Не работает. Почему?
← →
OneFragLeft © (2004-11-30 22:11) [5]Это Дельфя глючит.
Два раза стоит поменять ParentBackground, установив его в False, как всё начинает работать.
← →
Ученик (2004-11-30 22:11) [6]Манифест XP есть ?
← →
Ищущий ответ (2004-11-30 22:22) [7]
> OneFragLeft © (30.11.04 22:11) [5]
И правда заработало. Спасибо, а то чуть мозги не поплавились. OneFragLeft большое спасибо!!!
Страницы: 1 вся ветка
Текущий архив: 2004.12.12;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.042 c
