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;
