Delphi TAB control

[fedora]

selam arkadaşlar tab kullanımında şöyle bir yol buldum tab ın name ini sayfa1 diğer tabi sayfa2 yapıyorum daha sonra 2 adet buton ekliyorum
ilk butonun click olayına

Kod: Tümünü seç

sayfa.2.Hide;
sayfa1.Visible := True;
sayfa1.Show;

yazıyorum 2. butonun klik olayına ise

Kod: Tümünü seç

sayfa1.Hide
sayfa2.Visible := True;
sayfa2.Show;

bu sayede 1. butona bastığımızda 1. butona bastığımızda gizli ise 1i ekrana getirip 2i gizliyor veya 2i ekrana getirip 1i gizliyor bu işlemi düz kafayla yaptım daha iyi bir yolu var mı formlar arası geçiş falan

[AfterPost]

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=TForm2.Create(Application);
Form2.Show;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Visible:=False;
end;

form1 için
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Visible:=True;
Action:=caFree;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Form1.Hide;
end;
//form2 için

[sabanakman]

Aslında sayfaların tek tek TabVisible özellikleri false yaparak kullanabilirsiniz. Mesela bir çok kurulum paketinde her ileri dediğimizde Tab'ı gizlenmiş farklı bir sayfa gelmektedir.

Kod: Tümünü seç

for i:=0 to Sayfalar.PageCount-1 do Sayfalar.Pages[i].TabVisible:=False;

kodu ile bütün tablar gizlenecektir ve artık sadece ActivePage veya ActivePageIndex özelliği ile kullanmak istediğiniz sayfayı kullanabilirsiniz.

Kod: Tümünü seç

Sayfalar.ActivePage:=Sayfa1

veya

Kod: Tümünü seç

Sayfalar.ActivePageIndex:=0

şeklinde kullanılabilir.