OnAfterShow mittels PostMessage

[shmia]

Delphi-Quellcode:

procedure TfrmPreview.FormShow(Sender: TObject); 
begin 
  PostMessage(frmPreview.Handle, WM_MP_AFTERSHOW, 0, 0);  // FALSCH !!!
  //          ^^^^^^^^^^
  PostMessage(Handle, WM_MP_AFTERSHOW, 0, 0);  // Richtig
  PostMessage(Self.Handle, WM_MP_AFTERSHOW, 0, 0);  // Auch richtig
end;