Форум: "Начинающим";
Текущий архив: 2007.01.07;
Скачать: [xml.tar.bz2];
Вниз
Image на компоненте Найти похожие ветки
← →
i-am-vladko © (2006-12-18 17:31) [0]Здравствуйте.
Есть почти готовый (;-) ) компонент - наследник TWinControl. Хочу сделать Image на нем, которую видно только Design-Time.
Подскажите как, plz
есть :TMyComponent = class(TWinControl)
private
Title : TImage;
...
end;
+
constructor TMyComponent.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
if AOwner is TWinControl
then Parent := (AOwner as TWinControl);
Width := 100;
Height := 30;
Title := TImage.Create(self);
Title.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + PIC_NAME);
Title.Align := alClient;
Title.AutoSize := TRUE;
...
end;
картинку не видно ни Design-time, ни Run-time
← →
Ega23 © (2006-12-18 17:41) [1]А Парент?
← →
i-am-vladko © (2006-12-18 17:43) [2]
constructor TMyComponent.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
if AOwner is TWinControl
then Parent := (AOwner as TWinControl);
Width := 100;
Height := 30;
Title := TImage.Create(self);
// добавил -
Title.Parent := self;
// сейчас видно и Design-time и Run-Time. КАК СДЕЛАТЬ ЧТОБы ТОЛЬКО Design-time??
Title.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + PIC_NAME);
Title.Align := alClient;
Title.AutoSize := TRUE;
...
end;
← →
Gero © (2006-12-18 18:30) [3]> КАК СДЕЛАТЬ ЧТОБы ТОЛЬКО Design-time??
csDesigning in ComponentState
← →
i-am-vladko © (2006-12-18 19:31) [4]спасибо, Gero
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.01.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c
