Tabsheetleri listelemek?

[umutcanster]

arkadaşlar o anda açık olan tabshettleri bir listbox'a nasıl sıralatabilirim....? ( isim olarak )

[mrmarman]

O anda açık olan derken ? zaten bir TPageControl'da aynı anda bir tanesi açık olmuyor muydu ? Onu da bulmak için aşağıdaki şekilde alman yeterli.

Kod: Tümünü seç

ShowMessage( 'TabSheet :' + PageControl1.Pages[PageControl1.ActivePageIndex].Caption );

Ama diyorsan ki, visible özellikleriyle oynadım, bazıları görünmez durumda bazıları görünür durumda diyorsan görünür ( TabVisible=true ) olanların listesini almak için

Kod: Tümünü seç

procedure TForm1.PageControl1Change(Sender: TObject);
Var
  i : Integer;
begin
  ListBox1.Clear;
  for i := 0 to PageControl1.PageCount-1 do begin
    if PageControl1.Pages[i].TabVisible then
    begin // TabVisible yani görünür halde ise..
      // seçili tabsheet yanına (*) koyalım
      if PageControl1.ActivePageIndex = i
      then ListBox1.Items.Add( PageControl1.Pages[i].Caption + '(*)' )
      else ListBox1.Items.Add( PageControl1.Pages[i].Caption   );
    end;
  end;
end;

[umutcanster]

Özür dilerim 2.örnek alıyor dediğinizi.....

teşekkürler Üstadım.