Messagedlg und Default Button funkt nicht

[Schuster]

Hallo
lt. OH sollte man im Messagedlg auch den default Button setzten können nur schaff ich das nicht

kann mir jemand einen Tipp geben wie das funkt??

Hatte es bisher mit Messagebox gemacht aber wenns auch mit Messagdlg funken soll würd ich gerne dieses auch
verwenden.

Hier lt. OH:

Delphi-Quellcode:

if MessageDlg('Welcome to my Delphi application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
  begin

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;

function MessageDlg(const Msg: WideString; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultBtn: TMsgDlgBtn = mbNone; Bitmap: TBitmap = nil): Integer; overload;

[Sharky]

Hai Schuster,

die von Dir gefundenen MessageDlg Variante ist in der Unit QDialogs. Einfach diese einbinden und es sollte gehen.

[Schuster]

Thx das wars

[Luckie]

Ich sehe eigentlich keinen Grund den MessageDlg der Messagebox vorzuziehen. Eher im Gegenteil, so bald die Anwendung lokalisiert werden muss, bekommst du mit dem MessageDlg und der Beschriftung der Schaltflächen Probleme.

Und jetzt auch noch VCL mit CLX mischen, ist auch nicht so das wahre. Nun darfst du nämlich immer die paar MB große DLL mitliefern damit du die Anwendung auf anderen Systemen ausführen kannst.

[Schuster]

Ok werde QDialogs nicht nutzen wenn ich da ein paar dll mit x mb mitliefern muß.

Mach es halt wieder über Messagebox.

Trotzdem Thx für die rasche Hilfe