[API高手入]已知窗口句柄如何植入到TTabSheet里

[SonicX]

我要做到以下效果
////////////////////////////////////////
var
aForm : TForm;
tabSheet : TTabSheet;
begin
//Create a new tab sheet
tabSheet := TTabSheet.Create(PageControl1) ;
tabSheet.PageControl := PageControl1;

//create a form
//aForm := TForm.Create(tabSheet) ;
aForm.CreateParentedControl(tabSheet.Handle );
aForm.Parent := tabSheet;
aForm.Align := alClient;
aForm.BorderStyle := bsNone;
aForm.Visible := true;
tabSheet.Caption := aForm.Caption;

//activate the sheet
PageControl1.ActivePage := tabSheet;

[xixuemao]

procedure TForm1.Button1Click(Sender: TObject);
var
aForm : TForm2;
tabSheet : TTabSheet;
begin
aForm:= TForm2.Create(nil);
aForm.Align := alClient;
aForm.BorderStyle := bsNone;
aForm.Show;
tabSheet := TTabSheet.Create(PageControl1) ;
tabSheet.PageControl := PageControl1;
Windows.SetParent(aForm.Handle,tabSheet.Handle);
tabSheet.Caption := aForm.Caption;
PageControl1.ActivePage := tabSheet;
end;

[SonicX]

窗体并非TForm对象,可否完全用API处理?

[xixuemao]

只要获得窗口的句柄就可以了。

[SonicX]

基本解决了，但又有个新问题
PageControl1也只有句柄

tabSheet.PageControl := PageControl1;
这句该如何改

tabSheet.PageControl.Handle:=PageControlhwnd;
不行
Windows.SetParent没效果