Windows Dialogboxen

[Papaschlumpf73]

Ich benutze auch gerne Dialoge mit Ja/Nein

[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.

[Willie1]

Halle KodeZwerg, danke für deine Info vom Handy!!!

Das kommt davon, wenn man eine ungenaue Frage stellt. Ich hatte nur fest gestellt, dass CreateMessageDlg bei mtConfirmation wieder das gute, alte Fragezeichen anzeigt, was mich wundert.
Noch ein Hinweis, dein Konstrukt zeigt kein Icon an, einfach nichts.

Gruß Willie.

[KodeZwerg]

Hallo willi, es ist nur der obere teil vom code getiipt.
Show oder showmodal usw muss noch rein.
Abgebildet ist nur wie man 'default button' und 'bild ersetzen' machen könnte.
Wenn du magst/brauchst lade ich demo project source hoch.

Lg vom kodezwerg

Edit

Was ist matze tutorium eigentlich?

[Willie1]

Hallo KodeZwerg,
Matze ist hier im Forum schon lange aktiv und hat ein Tutorium über MessageDlg und Co. geschrieben. Findest du unter Tutorials rechts oben auf dem Begrüßungsfenster.

Natürlich muss da Showmodal hin, dann öffnet sich das Fenster!

Gruß Willie.