MessageDlg

[ColdFire]

Hy Leute eine frage..
und zwar kann ich den Focus auf Nein bei einer Message setzen
denn bei dem bsp wird immer automatisch JA als focus

wie kann ich das ändern ?

Delphi-Quellcode:

MessageDlg('MEINE ABFRAGE',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
  {..}
  end;

[Matze]

Schau dir mal dieses Tutorial an.

[TeronG]

oder mit n bissl schummeln ^^
if (MessageDlg('', mtWarning, [mbNo, mbOK], 0) = mrOk) then beep;

[alcaeus]

Zitat von Matze:

Schau dir mal dieses Tutorial an.

Was er damit sagen will: bei MessageDlg kannst du keinen Default-Button angeben. Dazu musst du Windows.MessageBox verwenden.

Greetz
alcaeus

[ColdFire]

Toll das tut bringt mich auch nicht weiter...

So blöd bin ich nun auch wieder nicht ...

Delphi-Quellcode:

MessageDlg('BlaBla'',
         mtConfirmation, [mbYes, mbNo], 0,mbNo) = mrYes;

das mit 3ten parameter mbNo hat gefruchtet aber nur wenn die Unit QDialogs dabei ist dass problem dass ich dennoch habe dann sind alle messages in English *gg* tja ich werde wohl selbt ne lösung finden müssen

lg CF

[SubData]

Theoretisch kann man auch die Fragestellung des Dialogs so anpassen, dass die Antwort im Prinzip umgedreht werden muss.

Anstatt "Soll die Datei überschrieben werden?" also "Wollen Sie die Datei behalten?"

Im Falle eines Falles, ist Schummeln wirklich alles

[MathiasSimmack]

Zitat von ColdFire:

Toll das tut bringt mich auch nicht weiter...

MessageBox aus dem API bringt dich nicht weiter?

[ColdFire]

ich brauche genau diese funktion:
dies funktion funktioniert nur mit der unit QDialogs nicht DIALOGS

function MessageDlg(const Caption: WideString; const Msg: WideString; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultBtn: TMsgDlgBtn = mbNone; Bitmap: TBitmap = nil): Integer; overload; wie man sehen kann ist hier DefaultBtn: TMsgDlgBtn = mbNone (mbNo) währe richtig funktioniert auch soweit nur der Sh*t daran ist dass dann meine message anders aussieht (icon dabei) und die Buttons YES und NO heißen nicht Ja und Nein

soweit klar ?
funktionieren tut es mit dieser funktion nur english halt

danke für eure hife werde mir ne eigene funktion coden müssen

lg CF

[MathiasSimmack]

Ich möchte dich, zum letzten Mal, auf die API-Funktion "MessageBox" (Windows-Unit) hinweisen:

Delphi-Quellcode:

MessageBox(self.Handle,
  'Meine Frage, die man mit Ja beantworten soll, auch wenn Nein vorausgewählt ist.',
  'Ein Titel',
  MB_YESNO or MB_ICONQUESTION or { --> } MB_DEFBUTTON2 { <-- }
);