Почему не работает код?

← →
Ищущий ответ (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 большое спасибо!!!

Почему не работает код? Найти похожие ветки