unbegründete AccessViolation?

[Nicodius]

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