Sorry, ich muss meine Aussage revidieren mit mtCustom.
Habs gerade in Delphi nachgestellt, samt default knopf.
Delphi-Quellcode:
Var
Dlg: TForm;
I: Integer;
Begin
Dlg := CreateMessageDialog('text', mtInformation, mbYesNo, mbNo); // mbNo ist nun default
With Dlg do
Begin
For i := 0 to ComponentCount - 1 do
If Components[i] is TImage then
TImage(Components[i]).Picture.Icon := Self.Icon; // nun ist anstelle fragezeichen dein application icon da
End;
// der rest sollte klar sein oder?
Und ja, schutzblöcke fehlen, ich tipp des alles grad per handy rein, sorry.