MDI-Child - Zugriffsverletzung bei Zuweisung

[Mr_G]

Hi!
Ich habe folgendes Problem: Ich habe eine MDI-Anwendung in der ich ein MDI-Kindfenster erstellen möchte. Das Hauptformular wird logischerweise automatisch erzeugt, das Kindfenster jedoch nicht. Nun erzeuge ich im Laufe des Progammablaufs besagtes Kindfenster und zeige es an.

Delphi-Quellcode:

frm_kind := Tfrm_kind.Create(Self);
frm_kind.Show;

Im OnShow-Ereignis des Kindfensters wird nun einem Textfeld ein Inhalt zugewiesen und dabei tritt eine Zugriffsverletzung auf. Die Zuweisung ist an sich korrekt doch beim Debuggen gibt es scheinbar Probleme mit dem Textfeld. Der Fehler tritt jedoch nicht auf wenn ich auch das Kindfenster automatisch erzeugen lasse. Ich vermute das das auch irgendwie mit dem Splashscreen und seiner Entstehung zusammenhängt. Den Splashscreen habe ich nach dem Tutorial von sakura eingebaut.

[Taladan]

Was für eine Fehlermedlung kommt den?

[Taladan]

Zitat:

Zitat von Mr_G

Im OnShow-Ereignis des Kindfensters wird nun einem Textfeld ein Inhalt zugewiesen und dabei tritt eine Zugriffsverletzung auf.

Wahrscheinlich ist dein Textfeld noch nicht vollständig initialisiert. Deshalb setze mal folgende zeile vor deinen Anweisungen (also als erstes im OnShow-Ereignis des Childs)

Delphi-Quellcode:

  inherited Show;

[Robert_G]

Zitat:

Zitat von Taladan

Delphi-Quellcode:

  inherited Show;

:shock: Was soll denn das bringen? :gruebel:

Aber die hier bereitgestellten Infos sind auch dermaßen rar... da kann man ja nur raten. :roll:

@Mr_G
Ich weiß nicht wie du es machst, aber wenn ich weiß dass es irgendwo zickt, dann setze ich natürlich einen Breakpoint davor!
Und schon weiß ich genau wo es zickt. Wäre also ganz nett wenn du das mal machen könntest um wenigstens ein/zwei Code Zeilen präsentieren zu könnnen, die den Fehler produzieren.
Das hier hilft doch nicht weiter, wenn du schon selbst sagst, dass du einen Handler für OnShow geschrieben hast:

Zitat:

Delphi-Quellcode:

frm_kind := Tfrm_kind.Create(Self);
frm_kind.Show;

Ich könnte dir also nicht mehr sagen als dass der Fehler in einem überschriebenen Constructor, OnCreate,OnShow,OnFragsPferd,... steckt. :roll:

btw: frm_kind ist hoffentlich nicht diese komische globale Variable vom Formdesigner. Wenn ja überrascht mich der Fehler bei einer MDI-App überhaupt nicht...

[Mr_G]

@ Robert_G: Lesen bildet! ;)

Zitat:

Im OnShow-Ereignis des Kindfensters wird nun einem Textfeld ein Inhalt zugewiesen und dabei tritt eine Zugriffsverletzung auf.

Nun nochmal für den Herrn der nur Delphi versteht:

Delphi-Quellcode:

Edit.Text := 'Test';

[Taladan]

Zitat:

Zitat von Robert_G

Zitat:

Zitat von Taladan

Delphi-Quellcode:

  inherited Show;

:shock: Was soll denn das bringen? :gruebel:

Hat bei mir eine genau diesen (oder zumindest einen ähnlichen) Fehler verhindert. Warum kann ich dir net sagen :oops: (da habe ich noch mit globalen variablen gearbeitet)

[Mr_G]

Zitat:

Delphi-Quellcode:

inherited Show;

Hilft leider nicht...
Aber mal eine andere Frage: Wie ersetzt du globale Variablen und wie hängt das mit den Zugriffsverletzungen zusammen?

[Robert_G]

Zitat:

Zitat von Mr_G

Zitat:

Delphi-Quellcode:

inherited Show;

Hilft leider nicht...

Hätte auch nur helfen können, wenn du dort irgendetwas initialisierst. ;)

Zitat:

Zitat von Mr_G

Aber mal eine andere Frage: Wie ersetzt du globale Variablen und wie hängt das mit den Zugriffsverletzungen zusammen?

Ist doch klar: Du hast eine MDI App, somit hast wohl du mehr als eine Instanz der Variablen.
Wenn du nun (sinnloserweise) das ganze in eine globale Variable packst wird da immer das Child drin sein, dass dort zuletzt gelandet ist. Und wenn du diese sogar in den Events von Tfrm_kind benutzt (also frm_kind) na dann gute Nacht.
Dann wird der Code zu einer Hälfte self, zur anderen irgendwas benutzen, das zuletzt in diese olle Variable geschrieben wurde. Prost Mahlzeit! :cheers:

Kommentiere frm_kind :Tfrm_kind einfach mal aus. Überall wo es jetzt knallt war ein Fehler im Code.


Für das Ersetzen bzw. Unnötigmachen von globalen Variablen gibt es hier X Threads bzw. mind. die Hälfte aller Quellcodes, die man heutzutage im Internet sieht dürfte frei von solchen alten Unsitten sein. Es ist also sehr wahrscheinlich, dass du für Probleme eine Lösung ohne "sowas" findest. ;)

[Mr_G]

Zitat:

Kommentiere frm_kind :Tfrm_kind einfach mal aus. Überall wo es jetzt knallt war ein Fehler im Code.

Wenn ich das gemacht habe sagt Delphi das frm_kind das Formular frm_kind referenziert das wiederum in der Unit dlg_kind ist. Es will nun die Unit einbinden doch wenn die Unit eingebunden wird bekomme ich logischerweise den Fehler das sich die Unit selber aufruft? Wo soll da nun der Fehler liegen?

Btw: Vielen Dank für die schnelle Hilfe! :dp:

[Robert_G]

Zitat:

Zitat von Mr_G

Zitat:

Kommentiere frm_kind :Tfrm_kind einfach mal aus. Überall wo es jetzt knallt war ein Fehler im Code.

Wenn ich das gesagt habe sagt Delphi das frm_kind das Formular frm_kind referenziert das wiederum in der Unit dlg_kind ist. Es will nun die Unit einbinden doch wenn die Unit eingebunden wird bekomme ich logischerweise den Fehler das sich die Unit selber aufruft? Wo soll da nun der Fehler liegen?

Dann benutzt du es sogar in der gleichen Unit und Delphi ist hier wohl etwas zu "schlau". Auswirkubgen: siehe Prost Mahlzeit ;)

[Mr_G]

Hmm...
Ich weiß nicht aber irgendwie komm ich nicht ganz mit...
Das Form ist in der Unit global deklariert wie immer... klar. Ich lade nun das Form und zeige es aus einer anderen Unit heraus an... Beim OnShow macht er terz und nun liegts daran das frm_kind eine globale Variable ist???
Wie soll ich das denn Umgehen?

[Robert_G]

Die Frage ist, wieoft hast du das Form schon erzeugt?
Normalerweise ist die globale Variable leer. In eriner normalen App, die mit den Dingern arbeitet würde man das hier machen:

Delphi-Quellcode:

formVariable := TFormKlasse.Create(IrgendEinOwner);

Und auch wenn es nicht sehr schlau ist das zu machen, es funktioniert meistens. Aber nur solange du nur EINE Instanz hast.

Delphi-Quellcode:

formVariable := TFormKlasse.Create(IrgendEinOwner);
formVariable := TFormKlasse.Create(IrgendEinOwner);

Nun gibt es 2 Forms, aber die Referenz auf das zweite steht in dem Ding.
Wenn du jetzt (und das verstehe ich irgendwie gar nicht) innerhalb der Methoden dieser Klassen die globalen Varable anstatt self nimmst:

Delphi-Quellcode:

procedure TFormKlasse.OnShow(....);
begin
  formVariable.DoSomething();
end;

Jetzt wird JEDE Instanz von TFormKlasse IMMER die Methode der Instanz ausführen, die gerade in formVariable steht.
Das hier hätte gereicht:

Delphi-Quellcode:

procedure TFormKlasse.OnShow(....);
begin
  DoSomething();
  // oder
  self.DoSomething();
end;

[Mr_G]

Hmm... verstanden...
Ich erzeuge das Form aber nur einmal.

[Robert_G]

na dann rücke mal den evtl. überschriebenen constructor, OnCreate und OnShow raus. ;)

Interessant ist auch das:
Verwendung der globalen Variable im OnShow Handler:

Delphi-Quellcode:

procedure TFormKlasse.OnShow(....);
begin
  formVariable.DoSomething();
end;

Form wird erzeugt, aber die referenz kommt in nicht in die globale Variable:

Delphi-Quellcode:

procedure TMdiParent.DoSomething;
var
  formVariable :TFormKlasse;
begin
  formVariable := TFormKlasse.Create(self);
  formVariable.Show();// boom
end;

Natürlich muss es nun im OnShow knallen...

[Mr_G]

Großes tut mir leid!!! :oops: :oops: :oops:
Ich habe alles nur aus dem Kopf aufgeschrieben und habe nun beim nachsehen und ausprobieren den Fehler gefunden...
Ich rufe im OnShow nur eine Function des Forms auf und in dieser kommt dann der Fehler.
Dumm wie ich nunmal bin hab ich die Function genau wie beschrieben aufgerufen.

Zitat:

Delphi-Quellcode:

procedure TFormKlasse.OnShow(....); 
begin 
  formVariable.DoSomething(); 
end;

Großes Entschuldigung und riesiges Danke für die Geduld!!!

[Robert_G]

Zitat:

Zitat von Mr_G

Dumm wie ich nunmal bin hab ich die Function genau wie beschrieben aufgerufen.

Macht ja nix. Aus Fehlern lernt man doch immer noch am besten. ;)

Zitat:

Zitat von Mr_G

Großes Entschuldigung und riesiges Danke für die Geduld!!!

Manchmal bin sogar ich ein wenig geduldig. :mrgreen:
BTW: Du brauchst hier auch wirklich keine globale Variable.

Wenn du nur Children von einem Typ hast gates so:

Delphi-Quellcode:

private
  function getMyActiveChild: ChildKlasse;
public
  property MyActiveChild: ChildKlasseread getMyActiveChild;

Delphi-Quellcode:

function ParentKlasse.getMyActiveChild: ChildKlasse;
begin
  if assigned(ActiveMdiChild) and (ActiveMdiChild is ChildKlasse) then
    result := ChildKlasse(ActiveMdiChild)
  else
    result := nil;
end;

Beim nächsten Mal aber bitte soweit im Debugger laufen bis du Zeile kennst, die knallt. (BreakPoints & F8 sind etwas unentbehrliches ;) )

[Mr_G]

Ich hatte ja debuggt nur hab ich leider den Beitrag zwischen Tür und Angel geschrieben und nicht mehr nachgedacht und kontroliiert ob ich das wirklich so gemacht hab... Und da is mir dieser kleine Umstand leider entfallen...
Nochmal Sorry und Danke!