Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c