Reihenfolge der Buttons einer MessageBox

[Baeuerle]

Hallo zusammen,

ist es möglich die Reihenfolge der Buttons einer Messagebox zu ändern ?

Delphi-Quellcode:

MessageBox(Handle,PChar('Bla Bla'),PChar('Warnung'),MB_YESNOCANCEL or MB_ICONWARNING);

Ergibt: YES | NO | CANCEL

Ich hätte aber gerne CANCEL | NO | YES

Habt Ihr eine Idee ausser selber ein Formular zu basteln ???

Danke

[Matze]

Hallo,

ob's mit der MessageBox geht, weiß ich nicht, mit einem Message-Dialog müsste dies gehen: CreateMessageDialog.

[Baeuerle]

Nicht wirklich,

wenn muss ich Createmessagedialog selbst ändern

Auszug aus Createmessagedialog:

Delphi-Quellcode:

 if mbOk in Buttons then DefaultButton := mbOk else
      if mbYes in Buttons then DefaultButton := mbYes else
        DefaultButton := mbRetry;
    if mbCancel in Buttons then CancelButton := mbCancel else
      if mbNo in Buttons then CancelButton := mbNo else
        CancelButton := mbOk;

[Matze]

Auch wenn die Buttonreihenfolge sehr ungewohnt ist und sicher nicht zum Bedienkonfort des Anwenders beiträgt, sollte es so eigentlich klappen. :gruebel:

Delphi-Quellcode:

var
  f: TForm;

  // ...

  f := CreateMessageDialog('Warnung', mtInformation, MBYESNOCANCEL);
  try
    (f.FindComponent('Cancel') as TButton).Caption := 'Ja';
    (f.FindComponent('Yes') as TButton).Caption := 'Abbrechen';
    f.ShowModal;
  finally
    FreeAndNil(f);
  end;
end;

[freak4fun]

Zitat:

Zitat von Matze

Auch wenn die Buttonreihenfolge sehr ungewohnt ist und sicher nicht zum Bedienkonfort des Anwenders beiträgt, sollte es so eigentlich klappen. :gruebel:

Delphi-Quellcode:

var
  f: TForm;

  // ...

  f := CreateMessageDialog('Warnung', mtInformation, MBYESNOCANCEL);
  try
    (f.FindComponent('Cancel') as TButton).Caption := 'Ja';
    (f.FindComponent('Yes') as TButton).Caption := 'Abbrechen';
    f.ShowModal;
  finally
    FreeAndNil(f);
  end;
end;

Wird da nicht nur die Caption geändert? :wiejetzt: Wenn ich auf Cancel drücke soll auch abgebrochen werden und nicht IdYes gesendet werden. :gruebel:

MfG
freak

[Matze]

Zitat:

Zitat von freak4fun

Wird da nicht nur die Caption geändert? :wiejetzt: Wenn ich auf Cancel drücke soll auch abgebrochen werden und nicht IdYes gesendet werden. :gruebel:

Das ist korrekt. Auf Anhieb weiß ich gerade nicht, wie man die Rückgabewerte ändert, aber das geht sicher auch.

Nachtrag: Das könnte so in der Art gehen:

Delphi-Quellcode:

  f := CreateMessageDialog('Test', mtInformation, MBYESNOCANCEL);
  try
    with (f.FindComponent('Cancel') as TButton) do
    begin
      Caption := 'Ja';
      ModalResult := IDYES;
    end;
    with (f.FindComponent('Yes') as TButton)do
    begin
      Caption := 'Abbrechen';
      ModalResult := IDCANCEL;
    end;
    f.ShowModal;
  finally
    FreeAndNil(f);
  end;

[NicoDE]

Zitat:

Zitat von Baeuerle

Habt Ihr eine Idee ausser selber ein Formular zu basteln?

Nein, aber man könnte den 'Cancel'-Button zum Standard-Button erklären (mittels Flag).