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.

[hoika]

Halllo,
und ohne TMS-Komponenten geht es?

[Uwe Raabe]

Zitat:

Zitat von hoika (Beitrag 1362163)

Halllo,
und ohne TMS-Komponenten geht es?

Ist das jetzt eine rhetorische Frage?

Ich habe hier auch die TMS-Komponenten. Wenn du mir die genauer Versionsnummer nennst und ein kleines Beispielprojekt fertig machst, mit dem das reproduzierbar ist, will ich mir das gerne mal anschauen.

[haentschman]

Moin...:P
Dieser Fehler betrifft nur 2(aktuell) Frames. Andere sind, auch mit der AdvListView, in Ordnung. :? Es liegt an dem Reader beim Lesen meiner lvBasicLists in der Vererbung 2 Ebenen vorher. Im Destructor , siehe Callstack, knallt es beim Seek. :gruebel:

Das witzige ist, das ich den Frame in einen Tab laden kann aber nicht in eine Form...

[hoika]

Hallo,
nein, nicht rhetorisch ...

Ich musst damals beim AdvListView zur Designtime alle Items löschen,
also alles dynamisch erzeugen (ebend das Reader-Problem).

[haentschman]

Hallo...
Alle Items werden dynamisch erzeugt. Nur die Colums werden je Frame je nach Anforderung erzeugt.

[jaenicke]

Wie wäre es denn auch die Komponente selbst dynamisch zu erzeugen?
Dann kann ja nichts aus DFMs gelesen werden, so dass der DFM-Reader nicht benötigt wird, der da ja offenbar das Problem macht.

[haentschman]

Danke... :P
Auch eine Idee. Ich bastle grad an einem Beispielprojekt mit den Frames...uno Momento. 8-)

Es war wie zu erwarten... beim Test funktioniert das. :evil: Ich habe die OriginalFrames mit allen Ableitungen benutzt und die Logik (PAS) ausgedünnt. Die DFM blieb bis auf die entfernten Referenzen zu den ImageListen gleich.

Habt ihr noch Ideen? :? Danke... Kann man die DFM "umsortieren", das eine andere Ladereihenfolge entsteht?

[EWeiss]

Schade hätte gern geholfen aber ohne 10.1 Berlin geht's nicht.
Möchte es jetzt auch nicht installieren. (Wenn ich es denn hätte)
Hoffe du bekommst das noch gebacken so was ist echt ärgerlich.

gruss

[haentschman]

Danke für die Teilnahme...:wink: Wenn ich wüßte was ich tun muß, wäre das halb so wild.

[Aviator]

Zitat:

Zitat von EWeiss (Beitrag 1362197)

Möchte es jetzt auch nicht installieren. (Wenn ich es denn hätte)

Setz dir doch einfach eine VM auf, auf der du das installierst. Die Starter Edition gibt es ja kostenlos. Damit kann man dann ja zumindest auch mal was testen. Die Sourcen werden dafür ja nicht (direkt) benötigt.

[haentschman]

Soooo...8-) Ich habe es habe es heraus gefunden. :thumb: Der Übeltäter war das MultiSelect des AdvListViews.

Erst mal Danke an alle für die Unterstützung... :thumb:

Ob das nur bei mir so ist werden wir sehen. Im ersten Test hatte ich die SetIsChoice procedure weggelassen. In dieser wird das MultiSelect entsprechend gesetzt. (eine Auswahl / alle)

Jetzt seid ihr dran. :wink: Bruno bekommt eine Mail... :zwinker:

Im Test:
Ohne Multi wird der Frame angezeigt, mit Multi gibts eine AV aus dem Reader. :evil: Vieleicht kann das mal wer reproduzieren.

TAdvListview: 1.7.4.1

[Whookie]

Tritt bei mir auch auf ... scheint was mit TReader zu sein, vielleicht hilft die ja mein kleiner Workaround?

[haentschman]

Dankeschön...:wink:

Dein Workaround funktioniert. :P Wenn man mal weiß wo man ansetzen muß ist es einfach...