Zugriffsverletzung beim Programm beenden

[TBx]

@mkienzler: Weil die Accessviolation beim Schließen auftritt :-)

[r3v0]

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!