PageControl Frame Kullanımı

[pro_imaj]

Merhaba;

PageControl nesnesinin içine runtime da Frame göstereceğim, bu konu aşağıdaki gibi sıkıntım var.

Kod: Tümünü seç

procedure TMainForm.Button1Click(Sender: TObject);
  var
 intForm2 : TFrame2;
 intForm : TFrame1;
 intTS   : TTabSheet;
begin

     intTS := TTabSheet.Create( PageControl1 );
     intTS.PageControl := PageControl1 ;

     intForm := TFrame1.Create(intTS);
     intForm.Align := alClient ;
     intForm.Parent := intTS ;

     intTS.Caption := 'Test Kayıtları';

     PageControl1.Visible := True;
     intForm.Show ;
     PageControl1.ActivePage := intTS;

end;

Yukarıdaki kodda İşlem başarılı fakat oluşturduğum nesneyi Assigned ile bir türlü kontrol edemiyorum. (Amacım oluşan nesnenin tekrar oluşmaması.)
Yardımlarınız için teşekkürler.

[pro_imaj]

Pagecontrol da Oluşturulan yeni TabSheet oluşmuş mu oluşmamış mı bunu kontrol etmek istiyorum. Bu konuda yardımcı olabilecek var mı?

[mehmetantalya]

Sanırım bu işini görecektir.

Kod: Tümünü seç

implementation

{$R *.dfm}

uses uFrame1;
var
   intForm : TFrame1;


--------------------
 var
 intForm2 : TFrame2;
 //////intForm : TFrame1;
 intTS   : TTabSheet;
begin
    if intForm = nil then begin

     intTS := TTabSheet.Create( PageControl1 );
     intTS.PageControl := PageControl1 ;

     intForm := TFrame1.Create(intTS);
     intForm.Align := alClient ;
     intForm.Parent := intTS ;

     intTS.Caption := 'Test Kayıtları';

     PageControl1.Visible := True;
     intForm.Show ;
     PageControl1.ActivePage := intTS;
     end;
     

[SimaWB]

İşinize yarar mı bilmiyorum ama aynı isimden bir TabSheet var mı kontrol edilebilir.
PageControl.PageCount ve PageControl.Pages[] yardımıyla.

[pro_imaj]

Sanırım bu işini görecektir.

Kod: Tümünü seç

implementation

{$R *.dfm}

uses uFrame1;
var
   intForm : TFrame1;


--------------------
 var
 intForm2 : TFrame2;
 //////intForm : TFrame1;
 intTS   : TTabSheet;
begin
    if intForm = nil then begin

     intTS := TTabSheet.Create( PageControl1 );
     intTS.PageControl := PageControl1 ;

     intForm := TFrame1.Create(intTS);
     intForm.Align := alClient ;
     intForm.Parent := intTS ;

     intTS.Caption := 'Test Kayıtları';

     PageControl1.Visible := True;
     intForm.Show ;
     PageControl1.ActivePage := intTS;
     end;
     

Merhaba;
Teşekkürler @mehmetantalya tamda istediğim gibi oldu.

İyi çalışmalar.

[pro_imaj]

İşinize yarar mı bilmiyorum ama aynı isimden bir TabSheet var mı kontrol edilebilir.
PageControl.PageCount ve PageControl.Pages[] yardımıyla.

@SimaWB Cevap için teşekkür ederim. Mehmet bey'in çözümü işimi gördü.

İyi çalışmalar.