| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Программно установить cbCustomColor для ColorBox равным True [D7, XP]
Alex_Ford © (2009-08-13 11:29:00)Здравствуйте!
Мастера подскажите пожалуйста как можно программно установить cbCustomColor для ColorBox равным True
Если задавать просто как ColorBox.Style:= [cbCustomCOlor] то слетает ошибка
Alex_Ford (2009-08-13 12:16:00) [1]Спасибо, немного разобрался. Проблема была в том, что сначала нужно было
написать а уж потом указывать стили. Все исправил и заработало.
> Parent:=Self;
{RASkov} (2009-08-13 12:07:00) [2]> [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 11:39:00) [3]
> Примерно так и устанавливать, как написал.
> Или, если не хочется терять остальные стили, то так:
> ColorBox.Style=ColorBox.Style+[cbCustomColor]
Я так уже пытался присвоить. Не работает.
> Что за ошибка-то слетает?
Исключение.class EIInvalidOperation with message 'Control' has no parent window.
Я так сообразил, что контрол не создается и не располагается на форме в виду непрпавильного присваивания стиля.
p.s. Коспонент создается динамически.
{RASkov} (2009-08-13 11:35:00) [4]Примерно так и устанавливать, как написал.
Или, если не хочется терять остальные стили, то так:
ColorBox.Style=ColorBox.Style+[cbCustomColor]
Что за ошибка-то слетает?
| |
