Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c