Ich Versuche gerade, bei dem MessageDlg ein eigenes Bild einzufügen. Ich bin mir aber nicht sicher, ob man das mit dem MessageDlg aus QDialogs machen kann, weil es gibt da ja theoretisch die möglichkeit, ein Bitmap anzugeben, jedoch gibt Delphi die Fehlermeldung an, dass es "keine überladene Funktion von Messagedlg gibt, die man mit diesem Argument aufrufen kann". Wenn ich das Bild wecklasse, klappt es.
Vielleicht findet ihr ja einen Fehler, den ich übersehen habe, oder geht das damit doch nicht?
Die Funktion, an die ich mich gehalten habe war in der Hilfe so angegeben:
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
Mein Code:
Delphi-Quellcode:
Bild ist als TBitmap deklariert
Bild := TBitmap.Create;
Bild.LoadFromFile('D:\Informatik\Delphi\Delphi7\Shutdown\T.bmp');
MessageDlg('Caption',
'MSG',
mtCustom,
[mbOk],
0,
mbOk,
Bild);
Bild.Free;