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 ^^

Delphi-Quellcode:

if (MessageDlg('', mtWarning, [mbNo, mbOK], 0) = mrOk) then beep;

:mrgreen:

[alcaeus]

Zitat:

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

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.
Schwupp... ist ne Delphi-Frage

[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 :mrgreen:

[MathiasSimmack]

Zitat:

Zitat von ColdFire

Toll das tut bringt mich auch nicht weiter...

MessageBox aus dem API bringt dich nicht weiter? :gruebel:

[ColdFire]

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

Delphi-Quellcode:

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 :D

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

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 { <-- }
);