Mit folgendem Ansatz kann man ziemlich sicher sein, daß das Form sichtbar ist und der Init-Code nur einmal aufgerufen wird.
Delphi-Quellcode:
const
WM_INITIALIZE = WM_USER + 1;
type
TForm177 =
class(TForm)
procedure FormCreate(Sender: TObject);
protected
procedure WMInitialize(
var Message: TMessage);
message WM_INITIALIZE;
public
end;
...
procedure TForm177.FormCreate(Sender: TObject);
begin
...
PostMessage(
Handle, WM_INITIALIZE, 0, 0)
...
end;
procedure TForm177.WMInitialize(
var Message: TMessage);
begin
inherited;
{ hier Initialisierungscode }
end;