Скачать: CL | DM;

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

← →
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]

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

---

← →
Rouse_ ©   (2002-10-10 03:18) [5]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c