mmh
ich versteh das nicht
ich poste jetzt einfach mal meinen Code - ist zwar nur ein Test aber egal:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('e:\delphi\Icons, Bitmaps, Avi\bmp\alarm.bmp');
MessageDlg('hallo', mtCustom, [mbYes, mbNo], 0, [mbnone], Bitmap);
Bitmap.Free;
end;
und wie ich schon mal geschrieben hab, will ich folgende MessageDlg-Funktion benutzen:
Code:
function MessageDlg(const Msg: WideString; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultBtn: TMsgDlgBtn = mbNone; Bitmap: TBitmap = nil): Integer; overload;
vielleicht kann mir jemand sagen, was ich falsch mach...