Hi,
Himitsu hat das Beispiel zwar schon im Ansatz geschrieben,
ich komplettiere mal:
Code:
Interface
Uses
...
Const
FM_STARTED = WM_USER + 1; // Formular komplett erzeugt
...
protected
procedure FmStarted(var Message: TMessage); message FM_STARTED; // MethodenName frei, Konstante für MessageId wichtig
implementation
...
procedure TfrmModal.FmStarted(var Message: TMessage);
begin
// Verarbeitung
ModalResult := mrOK; // oder Close
end;
// und ntürlich der Aufruf von PostMessage wie bei Himitsu
Ich habe hier allerdings Bedenken.
Falls in der Verarbeitung z.B. wegen ScrollBar ain Application.ProcessMessages kommt, funktioniert es wieder nicht.
Aber, Probieren geht über ...
Frank