動的に作成したTabのキャプションを変更するには

解決

公一 2007-03-21 03:02:56 No: 25427

動的に作成したTabをあとからcaptionを変更しようと思って
下記のようなプログラムを組んだのですが
変更されません。またエラーも出ないので困っています。
おかしいところありましたらご指摘ください。

よろしくお願いします。

procedure TForm1.FormCreate(Sender: TObject);
var
  Tab1 : TTabSheet;
begin
  Tab1 := TTabSheet.Create(PageControl1);
  Tab1.Parent := PageControl1;
  Tab1.PageControl  := PageControl1;
  Tab1.Name := 'tab123';
  Tab1.Caption := 'tab123';
end;

procedure TForm1.chgCaptionClick(Sender: TObject);
begin
TTabSheet(FindComponent('tab123')).Caption := edit1.Text;

end;

ワレどこのもんジャイ 2007-03-21 06:37:23 No: 25428

> Tab1 := TTabSheet.Create(PageControl1);
オーナーちゃうやろ。飾りモンやないでェ。

× TTabSheet(Self.FindComponent('tab123')).Caption := edit1.Text;
○ TTabSheet(PageControl1.FindComponent('tab123')).Caption := edit1.Text;

公一 2007-03-21 07:42:24 No: 25429

ありがとうございます。

できました。