انشاء عدة Forms داخل Form1 وانشاء عدة TabShet داخل PageControl

انشاء عدة Forms داخل Form1 وانشاء عدة TabShet داخل PageControl


كود سورس ب
Delphi


اضف فوق الفورم1
Form1
1 من نوع
MenuStrip1
و1 من نوع
TabControl1
---
تنشيء قائمة مكون من 3 وهم
File
New
Exit


[left]
[code]

var
Form1: TForm1;
i1 : integer; j1: integer;

implementation

{$R *.dfm}
uses unit2;
procedure TForm1.FormCreate(Sender: TObject);
begin
self.FormStyle := fsMDIForm;
self.Position := poScreenCenter;
PageControl1.Pages[0].Caption := 'Page1';
PageControl1.Pages[1].Caption := 'Page2';
i1 := 2;
j1 := PageControl1.PageCount-1;
end;

procedure TForm1.New1Click(Sender: TObject);
var
frm2: TForm2;
begin
i1 :=i1+1;
frm2 := TForm2.Create(Form1);
frm2.FormStyle := fsMDIChild;
frm2.Position := poDefault;
frm2.Caption := 'Form'+IntToStr(i1);
frm2.Show;
end;

procedure TForm1.PageControl1Change(Sender: TObject);
var
TabShet: TTabSheet;
begin
if PageControl1.TabIndex = PageControl1.PageCount-1 then
begin
j1 := j1 + 1;
TabShet:= TTabSheet.Create(PageControl1);
TabShet.PageControl := PageControl1;
PageControl1.Pages[PageControl1.PageCount - 2].Caption := 'Page'+IntToStr(j1);
PageControl1.Pages[PageControl1.PageCount - 1].Caption := ' + ';
end;
end;

[code]
[left]