Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.033 c
3-1100096254
Andriy Tysh
2004-11-10 17:17
2004.12.12
Как вывести отчёт КвикРепортом из КлиентДатаСета только те записи


14-1101265400
ИМХО
2004-11-24 06:03
2004.12.12
Почему Москва такой дорогой город?


9-1092384941
pavel_pavel
2004-08-13 12:15
2004.12.12
Инвентарь в игре


14-1100768556
ИМХО
2004-11-18 12:02
2004.12.12
Brain drain


1-1101586208
musicman
2004-11-27 23:10
2004.12.12
Перекодирование из ANSI в OEM русского текста