Formları Tab şeklinde açıp kapatma

[MoSoft]

fromları tab şeklinde açıp kapatma işlemini nasıl yapabilirim. Firefox gibi.

[ikra]

form üzerine bi tane PageControl nesnesi at.

Kod: Tümünü seç

procedure TForm1.xy(sender: TObject);
var ATab: TTabsheet;
     AForm : TBeimFormum
begin
  ATab := TTabsheet.Create(self);
  ATab.PageControl := PageControl1;
  
  AForm := TBenimFormum.Create(self);
  AForm.Parent := ATab;
  AForm.Show;
end;

kolay gelsin...

[MoSoft]

çok sağol ikra

acaba bu tab ın üst kısmında formların isimlerinin yazdığı bölüme kapat butonu ekliyebilirmiyiz. yani her tabda kapat butonu olucak.

[vampir261]

Güzel yöntem.

[cemrebilgisayar]

merhaba arkadaşlar
üste verdiğiniz kodda sekmeler arasında gezerken birincisinde yapıyor ikincisinde yapmıyor. birde pencereyi kapttığınızda hata veriyor. yardımcı olursanız sevinirim iyi çalışmalar

[ikra]

pagecontrol bileseninin sayfalarini gezdiginde yaptigi tek sey, o an sayfaya parented olan formu sana göstermesi.
yanilmiyorsam, bazi ücüncü bilesenlerde her sayfaya kapatma butonu ekleme imkani var. yanlis hatirlmiyorsam görmüstüm.
bu tür bir bilesen kullandiginizda, page'in kapatilma eventinde üzerine parented edilen formu free edebilirsiniz.