komponente auf neuem Tab erzeugen

[marabu]

Hallo,

tut das Not, dass du CreateParented() verwendest? Du arbeitest doch ausschließlich mit VCL Komponenten.

Delphi-Quellcode:

begin
  // ...
  if InputQuery(s, 'Caption', s) then
  begin
    ts := TTabSheet.Create(PageControl);
    ts.Caption := s;
    ts.PageControl := PageControl;
    ts.BorderWidth := 6;
    m := TMemo.Create(ts);
    m.Align := alClient;
    m.Parent := ts;
    m.ScrollBars := ssBoth;
    PageControl.ActivePage := ts;
  end;
end;

Grüße vom marabu