новая форма без модуля?

← →
Sidorovich © (2002-10-10 01:02) [0]

нужно создать новую форму только без нового модуля ... те используя основной .... можно так?
и как?

← →
AL2002 © (2002-10-10 01:09) [1]

public

frmCurrent : TForm;
procedure ShowForm (aOwner : TPanel);
procedure CloseForm;

end;

procedure TfrmMain.ShowForm (aOwner : TPanel);
begin
frmCurrent.Parent := aOwner;
frmCurrent.Show;
end;

procedure TfrmMain.CloseForm;
begin
frmCurrent.Close;
end;

procedure TfrmMain.aNewForm(Sender: TObject);
begin
frmCurrent := TForm1.Create(Self);
ShowForm (pnlWork);
end;

procedure TfrmMain.aClose(Sender: TObject);
begin
CloseForm;
end;

← →
Anatoly Podgoretsky © (2002-10-10 01:28) [2]

НельзяЮ каждая форма должна быть в отдельном модуле, чисто динамическое создание это отдельная песня.

← →
Rouse_ © (2002-10-10 01:49) [3]

> Anatoly Podgoretsky © (10.10.02 01:28)

Зачем же в отдельном модуле? Если имеется Unit то можно 2 формы в одном юните положить и никакого динамического создания

Желаю успехов

← →
А почему (2002-10-10 03:15) [4]

есть такая уверенность, что автору нужны две разные формы? Может он спрашивает только о том как создать еще один экземпляр некоей формы?

К сожалению автор пока молчит :(

Желаю успехов

новая форма без модуля? Найти похожие ветки