Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.10.18;
Скачать: CL | DM;

Вниз

Программно установить cbCustomColor для ColorBox равным True   Найти похожие ветки 

 
Alex_Ford   (2009-08-13 11:29) [0]

Здравствуйте!

Мастера подскажите пожалуйста как можно программно установить cbCustomColor для ColorBox равным True
Если задавать просто как ColorBox.Style:= [cbCustomCOlor] то слетает ошибка


 
{RASkov} ©   (2009-08-13 11:35) [1]

Примерно так и устанавливать, как написал.
Или, если не хочется терять остальные стили, то так:
ColorBox.Style=ColorBox.Style+[cbCustomColor]
Что за ошибка-то слетает?


 
Alex_Ford   (2009-08-13 11:39) [2]


> Примерно так и устанавливать, как написал.
> Или, если не хочется терять остальные стили, то так:
> ColorBox.Style=ColorBox.Style+[cbCustomColor]


Я так уже пытался присвоить. Не работает.


> Что за ошибка-то слетает?


Исключение. class EIInvalidOperation with message "Control" has no parent window.
Я так сообразил, что контрол не создается и не располагается на форме в виду непрпавильного присваивания стиля.
p.s. Коспонент создается динамически.


 
{RASkov} ©   (2009-08-13 12:07) [3]

> [2] Alex_Ford   (13.08.09 11:39)
> p.s. Коспонент создается динамически.

Родителя указываешь?
Вот никаких ошибок:
procedure TForm1.Button1Click(Sender: TObject);
begin
 with TColorBox.Create(self) do begin
  Parent:=Self;
  Style:=[cbCustomColor];
 end;
end;


 
Alex_Ford   (2009-08-13 12:16) [4]

Спасибо, немного разобрался. Проблема была в том, что сначала нужно было
> Parent:=Self;

написать а уж потом указывать стили. Все исправил и заработало.



Страницы: 1 вся ветка

Текущий архив: 2009.10.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
2-1250505823
izya
2009-08-17 14:43
2009.10.18
Как получить длину имени класса получаемый GetClassName


15-1250495822
D.L.
2009-08-17 11:57
2009.10.18
EurekaLog


15-1250136231
brother
2009-08-13 08:03
2009.10.18
Для пользователей QIP


2-1250152468
JohnKorsh
2009-08-13 12:34
2009.10.18
Как программно управлять светодиодами клавиатуры?


2-1250151996
Дмитрий Л.
2009-08-13 12:26
2009.10.18
Система контроля ошибок