![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
новая форма без модуля? [D6, WinXP]
Sidorovich © (2002-10-10 01:02:00)нужно создать новую форму только без нового модуля ... те используя основной .... можно так?
и как?
Rouse_ (2002-10-10 03:18:00) [1]К сожалению автор пока молчит :(
Желаю успехов
А почему (2002-10-10 03:15:00) [2]есть такая уверенность, что автору нужны две разныеформы? Может он спрашивает только о том как создать еще один экземпляр некоей формы?
Rouse_ (2002-10-10 01:49:00) [3]> Anatoly Podgoretsky © (10.10.02 01:28)
Зачем же в отдельном модуле? Если имеется Unit то можно 2 формы в одном юните положить и никакого динамического создания
Желаю успехов
Anatoly Podgoretsky (2002-10-10 01:28:00) [4]НельзяЮ каждая форма должна быть в отдельном модуле, чисто динамическое создание это отдельная песня.
AL2002 (2002-10-10 01:09:00) [5]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;