Форум: "Основная";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];
ВнизПросто вопрос о наследовании... Найти похожие ветки
← →
Fantom_ (2003-10-21 15:36) [0]Привет Мастерам!
Есть у меня программка без форм. В процессе выполнения этой программы я создаю форму - наследник приложения и несколько визуальных компонентов на ней, в качестве родителя указываю созданную форму. И такое дело: если форму показать процедурой ShowModal, то компоненты на форме отображаются. Если просто Show - форма пуста.
Почему так происходит?
← →
Skier (2003-10-21 15:39) [1]
> форму - наследник приложения
То есть ?
> Почему так происходит?
Код покажи...
← →
jack128 (2003-10-21 15:45) [2]
> > форму - наследник приложения
>
> То есть ?
Кажись дошло: fm := TmyForm.Create(application); :-)
← →
Fantom_ (2003-10-21 16:07) [3]
> jack128 © (21.10.03 15:45) [2]
Да, именно так:
fm:=Tform.Create(Application);
fm.parent:=nil;
//параметры формы;
l:=TLabel.Create(fm);
l.Parent:=fm;
//параметры метки;
Попробовал то же в другой программе, но уже с формой:
fm:=Tform.Create(FormMain);
//пумпурумпум;
Что я не так делаю?
← →
Skier (2003-10-21 16:09) [4]fm:=Tform.Create(Application);
//параметры формы;
l:=TLabel.Create(fm);
l.Parent:=fm;
fm.Show;
← →
Fantom_ (2003-10-21 16:37) [5]Хорошо, пишу:
var f:Tform;
l:Tlabel;
begin
f:=Tform.Create(Application);
f.Top:=100;
f.Left:=100;
f.Width:=200;
f.Height:=200;
f.Name:="MyForm";
l:=Tlabel.Create(f);
//l.Parent:=f;
f.Show;
sleep(10000);
end.
Форма все равно пустая. А если добавить строку "l.Parent:=f;",
то компилятор кричит Incompatible types: "TWidgetControl" and "TForm" в этой строке.
PS: Странно, вчера он это проглатывал.. Может, выспаться? :-)
← →
Skier (2003-10-21 16:46) [6]1)
> //l.Parent:=f
Именно из-за этого и не видно !
2) http://delphimaster.net/view/1-1066655391/
← →
Fantom_ (2003-10-21 16:58) [7]Спасибо
> Skier © !
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.011 c