Zugriffsverletzung beim Laden eines Frames in Form (Container)

[haentschman]

Genervte Grüße... :evil:

Vorab:
Die Frames waren alle fertig und funktional auch im Form Container. Geändert habe ich nur die IDE auf Berlin (von XE) und das aktuellste TMS ComponentPack. :?
Problem
Wenn ich den Frame in einen Tab lade ist alles in Ordnung. Wenn ich aber den gleichen Frame in eine Form (Container) lade dann habe ich neuerdings eine Zugriffsverletzung in CreateWnd immer an der gleichen Stelle...:evil:
Mas ich probiert habe:
Früher hatte ich mal mit der AdvListview ein Problem mit TReader. Da half ein Klick im Designer auf ein anderes Control als die Listview. Ich habe alle Frames in der Hirachie nochmal geöffnet und gespeichert. Ohne Erfolg. :?

Frame in Tab:

Delphi-Quellcode:

function TfoMain.CreateCustomersListTab: TAdvOfficePage;
var
  Tab: TAdvOfficePage;
  Frame: TfrCustomers;
begin
  Tab := TAdvOfficePage.Create(nil);
  Tab.Name := 'tabCustomersList';
  Tab.ImageIndex := 235;
  Tab.Caption := conTextCustomerList;
  Frame := TfrCustomers.Create(nil, FLogic.Preferences, FLogic.Database); // funktional
  FinishTab(Frame, Tab);
  Result := Tab;
end;

Frame in Container:

Delphi-Quellcode:

class function TdAV_FormFactory.CreateForm(FormType: TdAV_FormType; Preferences: TdAV_Preferences; Database: IdAV_Database; IsChoice: Boolean = False): TfoContainer;
var
  ChildFrame: TfrBase;
begin
  Result := nil;
  ChildFrame := nil;
  case FormType of
    ftPreferences:
      begin
        ChildFrame := TfrPreferences.Create(Result, Preferences, Database);
      end;
    ftLoginSplash, ftLoginMain:
      begin
        ChildFrame := TfrLogin.Create(Result, Preferences, Database); // funktional
      end;
    ftPlant:
      ;
    ftLocation:
      ;
    ftOrder:
      ;
    ftUserManagement:
      begin
        ChildFrame := TfrUserManager.Create(Result, Preferences, Database); // funktional
      end;
    ftUser:
      begin
        ChildFrame := TfrUsers.Create(Result, Preferences, Database);
      end;
    ftCustomer:
      begin
        ChildFrame := TfrCustomers.Create(Result, Preferences, Database); // mit Zugriffsverletzung
      end;
    ftCompany:
      ;
    ftChanges:
      begin
        ChildFrame := TfrChanges.Create(Result, Preferences, Database);
      end;
    ftUnlock:
      begin
        ChildFrame := TfrUnlockDatasets.Create(Result, Preferences, Database);
      end;
  end;
  Result := TfoContainer.Create(nil, ChildFrame);
  ChildFrame.IsChoice := IsChoice;
  ChildFrame.ParentForm := Result;
  Result.Constraints.MinHeight := ChildFrame.Constraints.MinHeight;
  Result.Constraints.MinWidth := ChildFrame.Constraints.MinWidth;
  Result.Constraints.MaxHeight := ChildFrame.Constraints.MaxHeight;
  Result.Constraints.MaxWidth := ChildFrame.Constraints.MaxWidth;

  // Positionen ggf. über Preferences setzen
  case FormType of
    ftPreferences:
      begin
        Result.Position := poMainFormCenter;
      end;
    ftLoginSplash:
      begin
        Result.Position := poScreenCenter;
        Result.BorderStyle := bsToolWindow;
      end;
    ftLoginMain:
      begin
        Result.Position := poMainFormCenter;
        Result.BorderStyle := bsToolWindow;
      end;
    ftUserManagement:
      begin
        Result.Position := poMainFormCenter;
      end;
    ftCustomer:
      begin
        Result.Position := poMainFormCenter;
      end;
    ftUser:
      begin
        Result.Position := poMainFormCenter;
      end;
  end;
end;

Aufruf des modalen Fensters

Delphi-Quellcode:

procedure TfrLocationEdit.actChoiceCustomerExecute(Sender: TObject);
var
  CustomerForm: TfoContainer;
begin
  CustomerForm:= TdAV_FormFactory.CreateForm(ftCustomer, FPreferences, FDatabase, True);
  try
    CustomerForm.Width := 700;
    CustomerForm.Height := 500;
    CustomerForm.ShowModal;
  finally
    FreeAndNil(CustomerForm);
  end;
end;

PS: Der Login Dialog bzw. der Benutzermanager ist auch ein TFrame der mit der gleichen Factory im Container angezeigt wird... problemlos. :gruebel:


...ich mag nicht mehr. :evil: Wem gebe ich jetzt die Schuld? Jetzt kann ich alles von vorn prüfen...

Danke für Infos...

[EWeiss]

Ist denn CustomerForm initialisiert bzw. hat ein Handle?
Wenn nicht dann läuft bei CreateWindow was schief.
ChildFrame <> 0 ?
TfrCustomers ein Fenster das erstellt werden soll oder vorhanden.

gruss

[haentschman]

Hallo EWeiss,
vor CustomerForm.ShowModal hat das CustomerForm.TWinControl.FHandle ein Handle = 1578978 {$1817E2}. :?
Nachtrag:
ChildFrameTWinControl.FHandle = 0
TfrCustomers ist ein Frame. Der soll in einem FormContainer (CustomerForm)=(TForm) einfach modal dargestellt werden. Sowohl der Frame und der Container werden dynamisch erzeugt.


Ich tippe auf TMS und das Reader Problem... :? Weil alle anderen gehen ja.

Danke.

[EWeiss]

Zitat:

ChildFrameTWinControl.FHandle = 0

Wenn das erstellen des Window erfolgreich war dann muss ChildFrameTWinControl.FHandle <> 0 sein.

Deshalb bekommst du die Zugriffs Verletzung weil das erstellen des Windows fehl schlägt.

Es kann aber auch an dem Reader liegen wenn dieser einen Bezug zum erstellen des Window hat.
Das ist richtig.

Ich hoffe doch das der Container die Windows Messagen weiterleitet bzw. die Möglichkeit hat ein ClientFenster aufzunehmen.
Wenn nicht versuche mal dem Container das WS_CHILD flag zu zuweisen.

EDIT:

Zitat:

Sowohl der Frame und der Container werden dynamisch erzeugt.

Stelle sicher das dein Container der dynamisch erzeugt wird das flag WS_CHILD enthält.
Andernfalls kannst du dort kein weiteres Kind Fenster platzieren.

Wenn es daran nicht liegt ist es der Reader.
Frame und Container müssen Child Windows sein.

gruss

[haentschman]

Hallo EWeiss,

ich denke wir haben uns nicht verstanden. :wink:
Der Container, auch wenn er so heißt, ist eine stinknormale TForm und kein Container für MDI Childs.
Der Child, auch wenn er so heißt, ist eine stinknormaler TFrame und mit dem Container als Parent.

Hundertmal gemacht, bei 2 Frames geht es (wieder) nicht. :? Ich habe schon die AdvListViews "ausgebaut" und wieder eingefügt...ohne Erfolg. :?

Zitat:

ChildFrameTWinControl.FHandle <> 0

...soweit kann ich folgen. Warum schlägt das aber erst beim ShowModal auf und nicht beim Create. :gruebel:

Update:
Ist auch bei einem funktionierem Frame mit TAdvListView drauf ... ChildFrame.TWinControl.FHandle = 0 :? Jetzt weis ich langsam nicht mehr weiter.

[EWeiss]

Zitat:

...soweit kann ich folgen. Warum schlägt das aber erst beim ShowModal auf und nicht beim Create.

Ok.
Ich konnte NUR vermuten habe die Bibliothek nicht und kann deinen Quelltext nicht debuggen.
Zudem habe ich kein 10.1 Berlinale..

Nichts für ungut ;)

Als letzter Tip vielleicht mag er das ShowModal nicht.

gruss

[haentschman]

Alles gut...:P
Hast du meinen Nachtrag mit dem Handle gesehen? Das ist so...:P

[EWeiss]

Zitat:

Zitat von haentschman (Beitrag 1362154)

Alles gut...:P
Hast du meinen Nachtrag mit dem Handle gesehen? Das ist so...:P

Schon seltsam das ganze.
Du hast mein Mitgefühl.. (Kann leider nur raten das macht es dir auch nicht leichter)

gruss

[haentschman]

Moin...:P
DFM:

Delphi-Quellcode:

object lvBaseLists: TAdvListView [1]

...was hat die [1] zu sagen? :gruebel: Der hat mir das jetzt zum 2. Mal so angelegt. Auch ohne geht es nicht.

[Uwe Raabe]

Zitat:

Zitat von haentschman (Beitrag 1362157)

Delphi-Quellcode:

object lvBaseLists: TAdvListView [1]

...was hat die [1] zu sagen? :gruebel: Der hat mir das jetzt zum 2. Mal so angelegt. Auch ohne geht es nicht.

Die kommen in der Regel mit einer DFM-Vererbung rein und sorgen dafür, daß die Child-Order mit der der geerbten Instanz übereinstimmt. Bei WinControls (wie in diesem Fall) ist das z.B. die Z-Order. Gibt es aber auch für Actions, MenuItems, TabSheets und Datenbankfeler.