Просто вопрос о наследовании...

← →
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: Странно, вчера он это проглатывал.. Может, выспаться? :-)

1)
> //l.Parent:=f

Именно из-за этого и не видно !
2) http://delphimaster.net/view/1-1066655391/

← →
Fantom_ (2003-10-21 16:58) [7]

Просто вопрос о наследовании... Найти похожие ветки