Главная страница
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.051 c
3-1100080159
diabolik_krsk
2004-11-10 12:49
2004.12.12
Удаление файла *.ldb


6-1096729488
Луарвик
2004-10-02 19:04
2004.12.12
Правильный запрос (а не вопрос :))


1-1101825652
denis24
2004-11-30 17:40
2004.12.12
месяц словом


4-1099076434
Redhopter
2004-10-29 23:00
2004.12.12
О перехвате сообщений


4-1099146087
IronRat
2004-10-30 18:21
2004.12.12
FileMapping