MessageDlg mit OnHelp

[himitsu]

Hatte es auch so gemacht

Delphi-Quellcode:

procedure TForm23.Form23Click(Sender: TObject);
begin
  MessageDlg('xx', mtInformation, [mbYes, mbHelp], 3);
end;

function TForm23.ApplicationEvents1Help(Command: Word; Data: NativeInt; var CallHelp: Boolean): Boolean;
begin
  ShowMessage('Help');
end;

und da es dann an der gezeigten Stelle knallt, würde es dort reichen, wenn man in FExtendedViewerList etwas rein tut, also über RegisterViewer einen IHelpManager registriert?

[edit]
Der Grund ist, daß der Help-Button in diesen Dialogen sich direkt an GetHelpSystem > HelpSystem.Hook wendet und nicht über Application.DoHelp geht.