Message Box

[Hansa]

Jo, Verarsche. Versuche das hier mal zu compilieren:

Delphi-Quellcode:

function WeiterJaNein (x,y : integer) : boolean;
begin
(*
function MessageDlg(const Caption: WideString;
                    const Msg: WideString;
                    DlgType: TMsgDlgType;
                    Buttons: TMsgDlgButtons;
                    HelpCtx: Longint;
                    X,
                    Y: Integer;
                    DefaultBtn: TMsgDlgBtn = mbNone;
                    Bitmap: TBitmap = nil): Integer; overload;
*)
  WeiterJaNein := MessageDlg('Weiter ?',
                             '????????',
                             mtInformation,
                             [mrYes,mrNo],
                             0,
                             10,
                             11,
                             mbYes,
                             nil) = mrYes;
end;

Der Kommentar ist aus der Hilfe. Da wo die ??? stehen bleibt Delphi hängen "inkompatible Typen TMsgDlgType und string". Dafür kommt er erst gar nicht dazu, über "zuviele Parameter" zu meckern.