Nicht modale Alternative zu MessageDlgPos

[n0b0dy]

kopier dir einfach die MessageDlgPosHelp und setze da das

Result := ShowModal; auf
Result := Show;


[EDIT]
in der Praxis würde das dann so aussehen:

Delphi-Quellcode:

function MyMessageDlgPosHelp(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer;
  const HelpFileName: string): Integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
    try
      HelpContext := HelpCtx;
      HelpFile := HelpFileName;
      if X >= 0 then Left := X;
      if Y >= 0 then Top := Y;
      if (Y < 0) and (X < 0) then Position := poScreenCenter;
      Result := Show;
    finally
      Free;
    end;
end;


function MyMessageDlgPos(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Integer;
begin
  Result := MyMessageDlgPosHelp(Msg, DlgType, Buttons, HelpCtx, X, Y, '');
end;

//Aufruf

MyMessageDlgPos('message', ................