Zugriffsverletzung beim Schließen des Programms

[buyden]

Hi,

ich bekomme mit folgendem Code ne Zugriffsverletzung sobald ich das Programm beende.

Delphi-Quellcode:

procedure TForm1.DBEdit7Change(Sender: TObject);
begin
  if datamodule1.tbstatus.Active= true then
  panel1.Color:=datamodule1.tbstatus.fieldbyname('farbe').AsInteger;

end;

Im Prinzip soll nur die Farbe des Panels geändert werden sobald der Datensatz oder der Status geändert wird.

Kennt jemand den Grund?

[SirThornberry]

das wird daran liegen das zu diesem Zeitpunkt wohl panel1 schon nicht mehr existiert (zerstört wurde). Prüfe einfach ob du gerade im "Zerstörungsmodus" bist.

Delphi-Quellcode:

procedure TForm1.DBEdit7Change(Sender: TObject); 
begin 
  if not(csDestroying in ComponentState) and datamodule1.tbstatus.Active then 
    panel1.Color:=datamodule1.tbstatus.fieldbyname('farbe').AsInteger; 
end;

[buyden]

Das war's
ich hab schon versucht nur zu prüfen
Dankeschön.