MessageDLG mit eigener Überschrift, Wie?

[Sharky]

Zitat von Amnon82:

... Wie kann man den Title (Überschrift) definieren?. ...

Hai Amnon82,

da der Dialog ja ein TForm ist hat diese ja auch eine Caption. Du musst also nur noch den Titel als Parameter übergeben und dann vor dem Aufruf von aMsgDlg.ShowModal die Caption setzen:

Delphi-Quellcode:

function xMessageDlg(const aCaption : string;const Msg: string; DlgType : TMsgDlgType;
                     Buttons : TMsgDlgButtons; Captions: array of string) : Integer;
.
.
begin
.
.
  aMsgDlg.Caption := aCaption;
  Result := aMsgDlg.ShowModal;
end;