Несколько одинаковых форм.

← →
set1212 (2009-06-09 06:42) [0]

В программе необходимо реализовать следующее. Есть форма, необходимо создать несколько копий этой формы и что бы с каждой можно было работать по отдельности. Как это сделать, если можно поподробней.
Если омжно ссылку, на какую нибудь статью по этой теме.

← →
Palladin © (2009-06-09 07:23) [1]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342

← →
Юрий Зотов © (2009-06-09 10:01) [2]

> set1212 (09.06.09 06:42)

Уточните - нужно сделать копию формы в ее текущем состоянии, или в ее исходном состоянии?

Это важно, потому что делается по-разному.

← →
set1212 (2009-06-09 12:47) [3]

> в её исходном состоянии

← →
set1212 (2009-06-09 12:48) [4]

можно даже не форму, а например закладку, в PageControl

← →
Ega23 © (2009-06-09 13:02) [5]

> можно даже не форму, а например закладку, в PageControl

procedure TForm1.Button5Click(Sender: TObject); var ts : TTabSheet; i : Integer; lbl : TLabel; begin for i:=1 to 10 do begin ts := TTabSheet.Create(PageControl1); ts.PageControl := PageControl1; ts.Caption := "TabSheet" + IntToStr(i); lbl := TLabel.Create(ts); lbl.Parent := ts; lbl.SetBounds(20, 20, 200, 25); lbl.Caption := "Это TabSheet" + IntToStr(i); end; end;

> set1212 (09.06.09 06:42)
> Как это сделать, если можно поподробней.

Create + F1

> set1212 (09.06.09 12:47) [3]

> в её исходном состоянии

for i := 1 to 100 do
TMyForm.Create(Application).Show;

И получили 100 копий формы в ее исходном состоянии.

Несколько одинаковых форм. Найти похожие ветки