AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi Zugriffsverletzung beim Laden eines Frames in Form (Container)
Thema durchsuchen
Ansicht
Themen-Optionen

Zugriffsverletzung beim Laden eines Frames in Form (Container)

Ein Thema von haentschman · begonnen am 20. Feb 2017 · letzter Beitrag vom 21. Feb 2017
Antwort Antwort
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.429 Beiträge
 
Delphi 12 Athens
 
#1

Zugriffsverletzung beim Laden eines Frames in Form (Container)

  Alt 20. Feb 2017, 10:59
Genervte Grüße...

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...
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.


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

Danke für Infos...
Angehängte Grafiken
Dateityp: png Kundenliste (Frame) im Tab.png (13,1 KB, 25x aufgerufen)
Dateityp: png Button Kundenliste in Modaler Form.png (13,0 KB, 26x aufgerufen)
Dateityp: png Exception.png (3,3 KB, 21x aufgerufen)
Dateityp: png Callstack.png (74,5 KB, 30x aufgerufen)

Geändert von haentschman (20. Feb 2017 um 11:12 Uhr)
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#2

AW: Zugriffsverletzung beim Laden eines Frames in Form (Container)

  Alt 20. Feb 2017, 11:16
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

Geändert von EWeiss (20. Feb 2017 um 11:19 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.429 Beiträge
 
Delphi 12 Athens
 
#3

AW: Zugriffsverletzung beim Laden eines Frames in Form (Container)

  Alt 20. Feb 2017, 11:27
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.

Geändert von haentschman (20. Feb 2017 um 11:31 Uhr)
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#4

AW: Zugriffsverletzung beim Laden eines Frames in Form (Container)

  Alt 20. Feb 2017, 11:34
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

Geändert von EWeiss (20. Feb 2017 um 11:48 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.429 Beiträge
 
Delphi 12 Athens
 
#5

AW: Zugriffsverletzung beim Laden eines Frames in Form (Container)

  Alt 20. Feb 2017, 13:29
Hallo EWeiss,

ich denke wir haben uns nicht verstanden.
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.

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

Geändert von haentschman (21. Feb 2017 um 07:28 Uhr)
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#6

AW: Zugriffsverletzung beim Laden eines Frames in Form (Container)

  Alt 20. Feb 2017, 14:06
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

Geändert von EWeiss (20. Feb 2017 um 14:13 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz