Delphi XE2: Fehler beim Ableiten eines Formulars

[AndyDF]

Hallo zusammen,

ich bekomme in Delphi XE2, Update 3 immer einen Fehler, wenn ich ein neues Formular von einem anderen ableiten möchte.
Der Fehler lautet: "Fehler beim Lesen von Root.BorderStyle: Zugriffsverletzung bei Adresse 00000... "
Ich kann dies auf zwei unterschiedlichen PC´s nachvollziehen.

Das Projekt wurde kürzlich von Delphi 2009 migriert.

Ich konnte im Internet schon was finden, aber eine wirkliche Lösung habe ich nicht gefunden:
https://forums.embarcadero.com/threa...threadID=63717

Das manuelle Ableiten eines Formulars ist doch relativ mühsam...

Viele Grüße,
Andreas

[wurzelzwerg]

Kann ich nicht nachvollziehen.
Lad doch mal ein Beispiel hoch.

Das hier funktioniert:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

  TF2 = class(TForm1)
  end;

var
  Form1: TForm1;
  F2: TF2;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if F2 = nil then
  begin
    F2:= TF2.Create(self);
    F2.ShowModal;
    FreeAndNil(F2);
  end;
end;

[einbeliebigername]

Hallo,

Zitat von wurzelzwerg;1145431
[DELPHI:

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;

TF2 = class(TForm1)
end;

var
Form1: TForm1;
F2: TF2;
[/DELPHI]

Das ist nicht ganz das was er mein. Sonder Datei -> Neu -> Weitere... -> Delphi-Projekte -> Vererbbare Element.

Zitat von AndyDF:

Das Projekt wurde kürzlich von Delphi 2009 migriert.

Habe das gerade mit XE2 Update 3 und einem neuen Projekt und leerem Formular ausprobiert und es geht. Jetzt die Frage ob es an der Migration von D2009, veränderten Eigenschaften des Formulars oder aber an Komponenten auf dem Formular liegt. Lege mal ein neues Projekt an und nehme das Formular was sich nicht Vererben lässt auf. Und teste da das Vererben. Es muss ja nicht kompilierbar sein. Ich denke es liegt an dem Inhalt der DFM-Datei.

Einbeliebigername.

[wurzelzwerg]

Eigentlich egal wie man das vererbt.
Kann man denn das zu vererbende Formular ohne Probleme öffnen?
Da müsste sich ne kaputte dfm doch schon bemerkbar machen. Evtl mal auf Textansicht und zurück schalten.

[einbeliebigername]

Hallo,

ha, ich habe es und weiß auch was passiert und wie man es verhindern kann. Aber der Reihe nach.

Zitat von wurzelzwerg:

Eigentlich egal wie man das vererbt.

Nein. Es geht schon um den Schritt der Formularvererbung und nicht um Klassenvererbung. Der Unterschied ist der das bei der Formularvererbung nicht nur die Formularklasse vererbt wird, sondern auch die Formulardatei (DFM). Der Fehler tritt auch nicht zur Laufzeit auf, sondern in der Entwicklungsumgebung.

Das folgende bezieht sich nur auf VCL-Projekte. Bei FireMonkey habe ich das jetzt nicht getestet.

Nun erst mal die Pflicht, wie man das verhindern kann:
Das ist ein sch... Bug. Wenn man ein Formular auf die falsche Art und Weise vererbt, geht sogar mit Pauken und Trompeten die Entwicklungsumgebung zu.

Oder doch ein Feature. Man soll sich das Formular nur anschauen, bevor man es vererbt.

Also das Formular, von dem man erben will, öffnen und in die Formularansicht wechseln. Dann darf man über Datei -> Neu -> Weitere... -> Delphi-Projekte -> Vererbbare Elemente dieses Formular auch vererben. Getestet habe ich das jetzt mit neuem Projekt und neue angelegten Formularen (leer wie auch mit Standartkomponenten drauf, gespeicherte und nicht gespeichert).

Nun die Kür, für die die wissen wollen wie man es reproduziert und was scheinbar passiert:
Folgender Ablauf bringt bei mir die Entwicklungsumgebung nach dem Fehler nicht gleich zum Absturz. Ich habe nur Delphi, Version 16.0.4358.45540 Update 3 und aktuell keine weiteren Packages installiert, außer die mitgelieferten. Alles unter Win7 64bit. Delphi muss so konfiguriert sein, dass die mit gelieferten Sourcen beim "Deklaration suchen" mit unter geöffnet werden.

1. Delphi neu starten
2. Datei -> Neu -> VCL-Formularanwendung - Delphi
3. Datei -> Alles speichern (Verzeichnis und Dateiname wählen und speichern)
4. [Shift]+[F9] und Ok
5. [F12] (In die Code-Ansicht wechseln)
6. [Strg]+Klick auf das Dialogs hinten in der Uses-Liste (Die Datei VCL.Dialog.pas muss sich öffnen.)
7. Formulardatei wieder über den Reiter aktivieren aber nicht in die Formularansicht wechseln
8. Datei -> Neu -> Weitere... -> Delphi-Projekte -> Vererbbare Elemente, Form1 auswählen und Ok.
9. Nun gibt es eine Fehlermeldung Weiter mit Abbrechen
10. Nun erschein eine Fehlermeldung mit dem Text:

Code:

[Window Title]
Fehler

[Content]
Fehler beim Erzeugen von Formular: Zugriffsverletzung bei Adresse 503359F4 in Modul 'vcl160.bpl'. Lesen von Adresse 0000000A.

[OK]

(Ist ja der bekannte Folgefehler von dem vorherigen)

11. Jetzt kommt eine Warnung mit dem Text:

Code:

[Window Title]
Warnung

[Content]
Die Unit "Unit2.pas" ist mit dem von diesem Projekt verwendeten Framework VCL nicht kompatibel.

Das Hinzufügen könnte zu Compiler-Fehlern oder unerwartetem Verhalten führen. Fortsetzen?

[Ja] [Nein]

Weiter mit Ja, wir wollen doch sehen was er da treibt.

Dann erscheint das: Das ist doch eine VCL-Anwendung, wie kommt er jetzt auf FireMonkey. So viele Wände kann man gar nicht Bauen wie da kaputt gehen. Schön den Schädel im Rigips versenkt.

Einbeliebigername.

[USchuster]

Ich kann den Fehler mit diesen Schritten nachvollziehen und füge diese zu folgendem Eintrag hinzu:

Report No: 99432 (RAID: 287932) Status: Open
Inheritable Items in VCL
http://qc.embarcadero.com/wc/qcmain.aspx?d=99432

[wurzelzwerg]

Bei FMX der gleiche Bug, d.h. Deplpi stürzt ohne Fehlermeldung sofort ab.

[AndyDF]

Hallo zusammen,

vielen Dank für eure Antworten. Entsprechend der Beschreibung von einbeliebigername kann ich den Fehler auch immer nachvollziehen - wie auch schon manchmal in meinem von D2009 migrierten Projekt.

Nachdem ich ein paar Tests in meinem Projekt gemacht habe, konnte ich feststellen, dass die Formularableitung (immer) funktioniert wenn ich irgendein Formular gerade "anschaue". Muss gar nicht das sein, von welchem ich ableiten möchte.
Das erklärt auch das beobachtete Verhalten, dass es manchmal funktioniert hat und manchmal nicht...

Vielleicht handelt es sich hierbei doch um ein Feature.

Viele Grüße, Andreas

[einbeliebigername]

Hallo,

Zitat von AndyDF:

Nachdem ich ein paar Tests in meinem Projekt gemacht habe, konnte ich feststellen, dass die Formularableitung (immer) funktioniert wenn ich irgendein Formular gerade "anschaue". Muss gar nicht das sein, von welchem ich ableiten möchte.

Interessant. War bei mir nicht so. Muss aber zugestehen, dass ich das mit der Formularansicht eines anderen Formulars, als das was man vererben will, nur einmal probiert habe. Und vieleicht die Entwicklungsumgebung zu der Zeit schon verwundet war.
Aber es komplettiert den Sachverhalt. Es sieht wohl danach aus, als ob beim Vererben zur Feststellung ob FireMonkey oder VCL, das aktuell in der Anzeige befindliche Formular benutzt wird. Wie Delphi jetzt ohne angezeigtes Formular zu dieser falschen Feststellung kommt und warum nicht generell in das Formular, von dem man Erben will, geschaut wird, weiß aber nur der Dichter.

Einbeliebigername.