Программно установить 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; написать а уж потом указывать стили. Все исправил и заработало.

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