Текущий архив: 2009.08.09;
Скачать: 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]
> можно даже не форму, а например закладку, в PageControlprocedure 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 вся ветка
Текущий архив: 2009.08.09;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.004 c
