Не создается Label

[Devolarium]

В чем может быть причина?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1; l1: TLabel; ed1: TEdit;


implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Showmodal;
l1:=TLabel.Create(Form2);
l1.Caption:='Hallo!';
Ed1:=TEdit.Create(Form2);

end;

end.

[veniside]

создаётся, просто не показывается, т.к. Parent не назначен.

Вобще, логика хромает на две ноги. Сначала показываем модально форму, потом пытаемся создать на ней лейблы. При этом всё это из другой формы.
Даже индусы редко до такого опускаются.

[Devolarium]

Ну и ладно) я опустился) мб я индус откуда тебе знать?)

[Devolarium]

Кстати где этот Parent ставится и правильно ли я понимаю
L1.Parent:=Form2; ?

[Пепел Феникса]

да, правильно, этим вы указываете где он будет(на ком), но не позицию.

[Devolarium]

толку нет помоему...

begin
Form2.Showmodal;
l1:=TLabel.Create(Form2);
l1.Parent:=Form2;
l1.Caption:='Hallo!';
Ed1:=TEdit.Create(Form2);

end;

[Прик]

Какой тут толк может быть, если все что после Form2.Showmodal; выполняется только после закрытия этой формы.
Form2.Showmodal; надо вызывать после того как на форме что-то создается.

[Пепел Феникса]

кстати, с эдитом та же проблема будет.
+ советую указать позицию и размеры.
+ пост номер 7.
(кстати, а в дизайне форму не оформить?)