create form runtime and make trabpagecontrol(tratabsheet as parent of form)

[palmsistemasParticipant]

hi.. how to make tabsheet be parent of my form ,

i was try this

procedure TFrmMain.RaButton1Click(Sender: TObject);
var ratabsheetx: TRaTabSheet;
  aform: TFrmDefaultList;
begin
  RaTabSheetx := TRaTabSheet.Create(nil);
  RaTabSheetx.TabControl := RaTabControl1;

  RaTabSheetx.TabVisible := true;
  RaTabSheetx.Visible := true;
  RaTabControl1.ActiveTab := RaTabSheetx;

  aform := TFrmDefaultList.Create(nil);
  aform.Parent := ratabsheetx;

  RaTabSheetx.Title.Caption := aform.Caption;
  RaTabSheetx.Title.Width := 200;

  aform.Show;

end;

 

but it’s not make the tabsheet parent of the form .

has any body have try to make tratabsheet as parent of the form ..

thank’s before

[Author]

Posts