Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
ВнизСоздание компонент Найти похожие ветки
← →
vbazik (2002-02-26 00:56) [0]Подскажите как в виде компонента создать объект из Tscrollbox на котором содержится 2 Timage. У меня уже клин.. Вот часть кода. Если можно поправьте
uses extCtrls,Classes,graphics,forms,controls;
type
Tmy_class = class(tGraphicControl)
private
{}
public
sc:tscrollbox;
im1,im2:timage;
constructor Create(aowner:tcomponent); override ;
end;
procedure register;
implementation
constructor tmy_class.create(aowner:tcomponent);
begin
inherited create(aowner);
sc:=tscrollbox.Create(self);
im2:=timage.Create(self);
..
end;
procedure register;
begin
registercomponents("my",[Tmy_class]);
end;
end.
Бяда заключается в том что после размещения на форме и использовании к примеру
My_class1.im2.loadfromfile(‘1.bmp’);
картинка на форме не появляется. Подскажите - в чем я не прав.
Спасибо
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c