Zugriffverletzung beim Eigenschaften anpassen

[moelski]

Moin !

Ich habe da gerade ein Problem wo ich den Fehler nicht finden kann. Und zwar folgendes:

Zunächst mal haben wir die Klasse TInputSource. Davon erzeugen wir uns eine Instanz mittels FInput_Source := TSourceNrCommRS232.Create;

Dann hat TInputSource eine virtuelle Methode namens "ConfigDialog". Diese Methode ist TSourceNrCommRS232 auch definiert.

Wir rufen also den Config Dialog auf mittels:
FInput_Source.ConfigDialog;

Das klappt alles ganz gut. Nun hat TSourceNrCommRS232 ein Feld "FPort_NrComm : TNrComm;". Das ist eine Komponente für serielle Ports.
Im Create der Klasse TSourceNrCommRS232 wird das auch instanziert und ist funktionstüchtig.

Kommen wir zum Problem ... Wenn ich das erste mal FInput_Source.ConfigDialog aufrufe, dann kann ich den Port ändern und alles ist ok.
Ich schließe den Config Dialog, rufe ihn erneut auf und wenn ich nun den Port ändern will erhalte ich eine Zugriffverletzung.

Das ganze passiert in TnrDeviceBox welches eine erweiterte TCustomComboBox darstellt.

Auch wenn jetzt hier nicht alle nrComm verwenden, kann sich jemand einen Reim drauf machen was da schief geht?

[moelski]

Moin !

Ok es scheint an der Procedure für den Button zu liegen:

Delphi-Quellcode:

procedure TNrCommConfig.Button2Click(Sender: TObject);
var AParent : TComponent;
begin
  AParent := TComponent(Sender).GetParentComponent;
  while not (AParent is TCustomForm) do
    AParent := AParent.GetParentComponent;
  TCustomForm(AParent).Close;
end;

Das Problem ist ja das der Button auf dem Frame liegt und mit dem Code wollte ich eigentlich das Close des Formulars auslösen.
Ich habe jetzt aber den Button Auf ModalResult = mrClose und damit schließt er auch das Frame mit Form.

Problem also gelöst, aber erklären kann ich es mir ehrlich gesagt nicht so ganz :pale:

[mkinzler]

Ich würde auch noch nach not Nil/Assigned() abfragen.

[moelski]

Moin !

Ne an dem Button Code lags nicht.

Das ganze wird immer merkwürdiger ... wenn ich auf das Formular ein NrDeviceBox packe (die komplett funktionslos ist), dann habe ich den Fehler nicht.

:gruebel:

Und das soll nu jemand verstehen :shock:

[moelski]

Ok Problem gefixt (dank dem Entwickler).

War / ist ein nrComm interner Bug.
Und ich dachte schon ich hät totalen Bockmist zusammen geschrieben :stupid: