Stringgrid in Tabbednotebook erstellen

[marabu]

Hier noch eine alternative Vorgehensweise:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  ts: TTabSheet;
  sg: TStringGrid;
  tsName: String;
begin
  tsName := 'Neu';
  if not InputQuery('New page', 'Name', tsName)
  or (tsName = '') then
    Exit;
  ts := TTabSheet.Create(PageControl);
  ts.Caption := tsName;
  ts.PageControl := PageControl;
//sg := TStringGrid.CreateParented(ts.Handle);
  sg := TStringGrid.Create(ts);  
  sg.Name := tsName;             // eingefügt
  sg.Align := alClient;
  ts.InsertControl(sg);
  PageControl.ActivePage := ts;
end;

Grüße vom marabu