Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Zugriffsverletzung beim Programm beenden (https://www.delphipraxis.net/97226-zugriffsverletzung-beim-programm-beenden.html)

TBx 7. Aug 2007 12:55

Re: Zugriffsverletzung beim Programm beenden
 
@mkienzler: Weil die Accessviolation beim Schließen auftritt :-)

r3v0 7. Aug 2007 13:02

Re: Zugriffsverletzung beim Programm beenden
 
Japs die AV trat beim beenden des Programmes auf.
Der Button wurde aber am Anfang nicht richtig angezeigt.
Aber ich habe jetzt 2 Lösungen des Problems.

die erste wurde sehr schön von onlinekater vorgegeben.

Anstatt Show();
ein visible:= True;
machen.

Die 2te Lösung ist es in dem Projekt Code die Formen vor der Hauptform zu erzeugen
Delphi-Quellcode:
  Application.Initialize;
  frmMemo:= TfrmMemo.Create(nil); // <-- Lösung 2
  frmTabSheet:= TfrmTabSheet.Create(nil); // <-- Lösung 2
  Application.CreateForm(TfrmMain, frmMain);
  //Application.CreateForm(TfrmMemo, frmMemo); //<-- Lösung 1 (normal)
  //Application.CreateForm(TfrmTabSheet, frmTabSheet); //<-- Lösung 1 (normal)
  Application.Run;
Dann muss noch noch ein kurzes refresh in der Main form eingefügt werden
Delphi-Quellcode:
procedure TfrmMain.FormActivate(Sender: TObject);
begin
  frmMemo.Show();
  frmMemo.Parent:= pnlMemoCon;
  frmMemo.BorderStyle:= bsNone;
  frmMemo.BorderIcons:= [];
  frmMemo.Align:= alClient;
  //frmMemo.Visible := True; <-- Lösung 1

  frmTabSheet.Show();
  frmTabSheet.Parent:= pnlTabSheets;
  frmTabSheet.BorderStyle:= bsNone;
  frmTabSheet.BorderIcons:= [];
  frmTabSheet.Align:= alClient;
 // frmTabSheet.Visible := True; <-- Lösung 1
  refresh; //<-- Lösung 2
end;
Und dann klappert es... ohne AV falschen Button oder sonstigen Problemen!


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:40 Uhr.
Seite 2 von 2     12   

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 by Thomas Breitkreuz