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 := Tabs.Pages[nr];
pb.Tag := nr;
pb.Name := 'pb_' + IntToStr(nr);
inc(nr);
end;
procedure TMyArtz.Delete1Click(Sender: TObject);
var i : Integer;
begin
i := TPaintbox(Sender).Tag;
TPaintbox(Sender).Canvas.Rectangle(0,0,TPaintbox(Sender).Width, TPaintbox(Sender).Height);
end;
kurz - popup auf einem tabsheet wo auf dynamisch generiertenseiten auf pupupclick etwas geschehen soll..
ich kann nur darauf nicht zeichnen - sehr wohl aber .destroy ohne fehler bzw alle anderen sachen.
wär super hätte wer einen fehler gefunden(komm einfach nicht drauf und mag nicht stupide um diese uhrzeit rumprobieren)
grüße Nico