Reihenfolge der Buttons einer MessageBox

[Baeuerle]

Hallo zusammen,

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

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.

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 von Matze:

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

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? Wenn ich auf Cancel drücke soll auch abgebrochen werden und nicht IdYes gesendet werden.

MfG
freak

[Matze]

Zitat von freak4fun:

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

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