Форум: "Потрепаться";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Вниз

Создание формы в run-time   Найти похожие ветки 

← →
sudiv   (2001-11-29 16:37) [4]

Form1 := TForm.Create(self);
try
with Form1 do
begin
Height := ...
Width := ...
и т.д.
end;
// Пример
DBGrid := TDBGrid.Create(Form1);
with DBGrid do
begin
Parent := Form1;
Height := ...
Width := ...
Лефт
Прафт
и т.д.
Visible := true;
end;

// и далее аналогично.

Form1.ShowModal;
//Возможно Anatoly и прав ?
//Смотря для чего форма нужна.

finally
if Assigned(Form1) then FreeAndNil(Form1);
end;

Вроде так.

---

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

Форум: "Потрепаться";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c