Achja, nochwas:
Delphi-Quellcode:
function MessageDlg(
const Caption: WideString;
const Msg: WideString;
DlgType: TMsgDlgType;
Button1, Button2, Button3: TMsgDlgBtn; // <<<---
HelpCtx: Longint;
X, Y: Integer;
DefaultBtn: TMsgDlgBtn = mbNone;
Bitmap: TBitmap = nil
): Integer; overload
{-----}
Bild := TBitmap.Create;
Bild.LoadFromFile('D:\Informatik\Delphi\Delphi7\Shutdown\T.bmp');
MessageDlg('Caption',
'MSG',
mtCustom,
[mbOk], // <<<---
0,
mbOk,
Bild);
Bild.Free;
Oben TMsgDlgBtn, unten TMsgDlgButtons ... ist auchn Fehler, oder?
Du meinst vermutlich folgende Funktion:
Delphi-Quellcode:
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;
Stephan
Stephan B.
Wer andern eine Grube gräbt ist Bauarbeiter!
Wer im Glashaus sitzt, sollte sich lieber im Dunkeln ausziehen!
Außerdem dieser Satz kein Verb...