Thema: Delphi Message Box

Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#39

Re: Message Box

  Alt 19. Apr 2004, 12:35
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.
Gruß
Hansa
  Mit Zitat antworten Zitat