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

[mkinzler]

Die Sheets haben keinen Parent.

[Nicodius]

newsheet.PageControl := tabs; genügt wenn ich mich nicht irre


zumal das unten irrelevant ist

[Christian Seehase]

Moin Nico,

prüf' doch erst einmal, ob der Sender überhaupt eine Paintbox ist:

if Sender is TPaintBox then ... oder lass' Dir mit

ShowMessage(Sender.Classname); mal ausgeben, welche Klasse der Sender hat.

[mkinzler]

Ist möglich, würde es aber an deiner Stelle versuchen ob es was hilft, den parent zu setzen.
Die Symptomatik weist jedenfalls auf den fehlenden parent hin.

[Nicodius]

@christian - hi


hatte ich vorhin zur kontrolle drinnen - der sender stimmt.

@mkinzler - danke, aber ist sicher nicht das problem(habs auch probiert )

[mkinzler]

Versuch mal pb.Parent := newsheet; statt Tabs.Pages[nr]; Was ist der Initialwert von nr? 0 oder 1

[Hawkeye219]

Hi Nico,

würde es helfen, der Paintbox eine Größe zu geben?

Gruß Hawkeye

[Nicodius]

ging auch nicht


der initialisierungswert ist 0 aber mit eins gehts auch nicht vorneweg


@hawk - leider nicht - aber danke dass hab ich sowieso vergessen gehabt stimmt

[Hawkeye219]

Was mir gerade noch so auffällt:

Bei einer TPaintBox sollte man doch nur in der Behandlungsroutine für OnPaint zeichnen.
Ist "Delete1Click" wirkliche diese Routine?