Windows Dialogboxen

[KodeZwerg]

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.