TForm anzeigen obwohl Terminate bei TForm OnCreate

[haentschman]

Moin...

Zitat:

Bei OnShow zeigt er überhaupt nichts an und schließt nach erfolreichem ausführen.

- im OnShow kannst du auch noch nichts sehen, weil OnShow ausgeführt wird bevor die Controls / Form angezeigt werden.
- den Funktionscode im OnPaint ist das schlechteste, was du machen kannst.

Lösung:
- du mußt dir ein "OnAfterShow" Ereignis basteln damit OnShow komplett abgearbeitet wird und alles angezeigt wird.

Delphi-Quellcode:

const
  WM_FERTIG = WM_USER + 100; //Name frei wählbar
.
.
private
  procedure HabeFertig(var Msg: TMessage); Message WM_FERTIG;
.
.

procedure TFMain.FormShow(Sender: TObject);
begin
. // Controls einstellen etc.
.
  PostMessage(Handle, WM_FERTIG, 0, 0);
end;

.
.

procedure TFMain.HabeFertig(var Msg: TMessage);
begin
  // dein Funktionscode;
end;