messagedialog bordericons ändern?

[Hawkeye219]

Hallo polondo,

falls du es noch brauchst:

Delphi-Quellcode:

function NewMessageDlg(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
    try
      HelpContext := HelpCtx;
      Position := poScreenCenter;
      BorderIcons := BorderIcons - [biSystemMenu];
      Result := ShowModal;
    finally
      Free;
    end;
end;

Gruß Hawkeye