| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Почему не работает код? [D7, WinXP]

Ищущий ответ ©   (2004-11-30 21:33:00) 

На форме Panel1 и ColorDialog1. Имеется код:
procedure TForm1.Panel1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
  Panel1.Color := ColorDialog1.Color;
end;
Всё работает нормально, но стоит на форму бросить XPManifest1 из закладки Win32 и цвет панели перестаёт изменяться. В чём проблема?

---

Ищущий ответ   (2004-11-30 22:22:00) [1]

> OneFragLeft ©   (30.11.04 22:11) [5]

И правда заработало. Спасибо, а то чуть мозги не поплавились. OneFragLeft большое спасибо!!!

---

OneFragLeft   (2004-11-30 22:11:00) [2]

Это Дельфя глючит.
Два раза стоит поменять ParentBackground, установив его в False, как всё начинает работать.

---

Ученик   (2004-11-30 22:11:00) [3]

Манифест XP есть ?

---

Ищущий ответ   (2004-11-30 22:09:00) [4]

Да. В инспекторе объектов установил именно так. Только OnClick := Panel1Click. Не работает. Почему?

---

OneFragLeft   (2004-11-30 22:04:00) [5]

Вот так?
 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 21:56:00) [6]

Поставил. Не работает. Почему?

---

OneFragLeft   (2004-11-30 21:49:00) [7]

Поставь все св-ва начинающиеся с Parent у панели в False;

---

Наверх