Fehlermeldung bei Verwendung eines Bitmaps in MessageDlg

[Thorben86]

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;

[Steve]

Hab das gleiche Problem... Lt. Hilfe gibt es sehrwohl eine überladene Funktion mit diesen Argumenten, aber der Compiler will das nich glauben

Stephan

[Steve]

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

[Thorben86]

Jo, der unterschied liegt aber ja nur in der Anzahl der Buttons, das ändert aber ja nichts an meinem Problem, dass der das nicht erkennen will, oder habe ich die Bitmap vielleicht falsch deklariert/sonstiges falsch gemacht?

[Steve]

Also ich seh keinen Fehler, hab das auch genauso gemacht und den gleichen Fehler bekommen
Vielleicht weiß ja irgendwer Rat..

Stephan

[Thorben86]

Also ich bin mal in nem anderen Post darauf gekommen, unter MessageBox nachzuschauen, vielleicht findet da ja jemand ne möglichkeit, nen eigenes image anzugeben, weil ich habe irgendwie noch keine möglichkeit gefunden, da ein eigenes Icon reinzustecken, da gibt es nur die Flags für die Standarticons.

[Luckie]

Mit der normalen Messagebox geht es nicht aber mit der: MessageBoxIndirect.

[Thorben86]

Ok, ich werde versuchen, mir damit was zusammenzubauen, wenn ichs nicht schaff, komm ich eben wieder