Создать Form в Runime ...

← →
Oleg_EM © (2002-03-05 16:53) [0]

Добрый день !
Появилась необходимость создавать формы диалога для отчетов
в runtime, т.е. шоп перед выполнением можно было ввести нужное кол-во данных
Примерно так:
var Form : TForm;
begin
Form := TForm.Create (Self);
Form.parent := nil;
Form.left := 0;
Form.width := 200;
Form.Top := 100;
Form.Height := 150;
Form.Caption := "Диалог";

а вот дальше... как разместить неограниченное кол-во Edit box
Label и прочее ? c button тож все понятно (минимум чтоб mrOk, mrCancel возвращали)
подскажите в каком направлении рыть ...

← →
lipskiy © (2002-03-05 17:12) [1]

Можно динамическим массивом:
ArEd : Array of TEdit;

for i:= 0 to length(ArEd)-1 do
ArEd[i]:= TEdit.Create(...);

edit1.parent:=form;

Создать Form в Runime ... Найти похожие ветки