TabControlと他コンポーネントの連動(VBで曰くload関数) (ID：12623)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

VCL リファレンス  →  TPageControl  →  TPageControl の使い方
に載っています。

TTabControlは、タブを提供するだけです。
複数のページを扱うには、TPageControlの方が使いやすいのでそちらの例

procedure TForm1.Button1Click(Sender: TObject);
begin  // ページ追加のみ
  with TTabSheet.Create(PageControl1) do
   begin
     PageControl := PageControl1;
     PageControl1.Tag := PageControl1.Tag +1;
     Caption := IntToStr(PageControl1.Tag);
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
  var NewTabSheet : TTabSheet;
begin  // メモ追加
  NewTabSheet := TTabSheet.Create(PageControl1);
  with NewTabSheet do
   begin
     PageControl := PageControl1;
     PageControl1.Tag := PageControl1.Tag +1;
     Caption := IntToStr(PageControl1.Tag);
     with TMemo.Create(NewTabSheet) do
      begin
        Parent := NewTabSheet;
        Align  := alClient;
        Lines.add('[TabSheet]');
        Lines.add('Owner.Name: '+NewTabSheet.Owner.Name);
        Lines.add('Parent.Name: '+NewTabSheet.Parent.Name);
        Lines.add('TabSheet.Name: '+NewTabSheet.Name);
        Lines.add('TabSheet.Caption: '+NewTabSheet.Caption);
        Lines.add('');
        Lines.add('[Memo]');
        Lines.add('Owner.ClassName: ' + Owner.ClassName);
        Lines.add('Parent.ClassName: '+ Parent.ClassName);
        Lines.add('TabSheet.ClassName: ' + ClassName);
     end;
   end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る