windows.SetParent

[Asatru]

OK durch google und deinen Aussagen stehe ich derzeit bei folgenden Code

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  hwnd: THandle;
  Tab: TTabSheet;
begin
   // neues TabSheet
  Tab := TTabSheet.Create(self);
  Tab.PageControl := PageControl1;
  Tab.Parent := PageControl1;
  hwnd := findwindow(nil,PCHar('Borgmon'));
  windows.SetParent(hwnd, form1.PageControl1.Handle);
 end;