Mit folgendem Code erzeuge ich eine neue Karte für das Tabbednotebook. Danach kommt noch ein Stringgrid dazu. Allerdings wird das Stringgrid auf der Form (bibofuture) platziert, und nicht auf der aktuellen Karte des Tabbednotebook.
Hier mal der Quellcode:
Delphi-Quellcode:
procedure Tbibofuture.neuerubrikClick(Sender: TObject);
var kartei:TStringGrid;
begin
rubrikneu.name.Text:='';
rubrikneu.ShowModal;
if rubrikneu.name.Text<>'' then
begin
tabbednotebook1.Pages.Add(rubrikneu.name.Text);
kartei:=TStringgrid.Create(Self);
kartei.Parent:=bibofuture;
with kartei do
begin
left:=100;
top:=100;
width:=800;
height:=600;
name:='rubrik'+rubrikneu.name.Text;
end;
end;
end;
Meine Frage ist jetzt logischerweise: Wie erzeuge ich das Stringgrid auf der gerade aktiven Karte des Tabbednotebook?