プログラム超初心者です。
タブブラウザを作ってみたいのですが、
タブでウインドウを切り替える方法が分かりません。
これって簡単に出来ることでしょうか?
以下のようにタブを作成してるのですが、
ここから既に間違ってますか?
procedure TMainForm.CreateMDIChild(const Name: string);
var
Child: TMDIChild;
NewTabSheet: TTabSheet;
begin
Child := TMDIChild.Create(Application);
Child.Caption := Name;
PageControl1.visible := true;
NewTabSheet:=TTabSheet.Create(Self);
NewTabSheet.PageControl:=PageControl1;
NewtabSheet.Caption := Name;
PageControl1.ActivePage:=PageControl1.Pages[PageControl1.PageCount-1];
end;