es geht doch noch nicht
Delphi-Quellcode:
procedure TMyArtz.NeuClick(Sender: TObject);
var newsheet:ttabsheet;
begin
newsheet := ttabsheet.Create(tabs);
newsheet.Name := 'ts_' + IntToStr(nr);
newsheet.PageControl := tabs;
newsheet.Caption := 'Unbekannt_' + IntToStr(nr);
pb := TPaintbox.Create(Tabs);
pb.Parent := newsheet;
pb.Tag := nr;
pb.Name := 'pb_' + IntToStr(nr);
pb.Width := tabs.Width;
pb.Height := tabs.Height;
inc(nr);
end;
procedure TMyArtz.Delete1Click(Sender: TObject);
var i, w, h : Integer;
begin
w := TPaintbox(FindComponent('pb_' + IntToStr(tabs.ActivePageIndex))).width;
h := TPaintbox(FindComponent('pb_' + IntToStr(tabs.ActivePageIndex))).height;
TPaintbox(FindComponent('pb_' + IntToStr(tabs.ActivePageIndex))).Canvas.Rectangle(0,0,w,h);
end;
so muss es doch gehn? - ich hab drei seiten erstellt und hab bei activepage auch schon mal -1 genommen...