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

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

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


---

← →
oldman ©   (2009-06-09 16:12) [6]

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


Create + F1

---

← →
Юрий Зотов ©   (2009-06-11 19:05) [7]

> set1212   (09.06.09 12:47) [3]

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

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

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

---

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

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



Память: 0.46 MB
Время: 0.009 c