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