| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Несколько одинаковых форм. [D7, WinXP]

set1212 ©   (2009-06-09 06:42:00) 

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

---

Юрий Зотов   (2009-06-11 19:05:00) [1]

> set1212   (09.06.09 12:47) [3]

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

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

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

---

oldman   (2009-06-09 16:12:00) [2]

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


Create + F1

---

Ega23   (2009-06-09 13:02:00) [3]

> можно даже не форму, а например закладку, в 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   (2009-06-09 12:48:00) [4]

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

---

set1212   (2009-06-09 12:47:00) [5]

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

---

Юрий Зотов   (2009-06-09 10:01:00) [6]

> set1212   (09.06.09 06:42)

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

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

---

Palladin   (2009-06-09 07:23:00) [7]

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

---

Наверх