"Ja - Ignorieren - Cancel" mit MessageBox

[alzaimar]

Hier, vielleicht bringt dir das was: Die Deklaration ist -parametertechnisch- die Gleiche wie die von CsMessageBox. CsInputBox funktioniert genauso wie InputBox etc.

Ich muss dazu sagen, das ich die Komponenten (TEdit und TBitBtn) selbst nicht verwende, sondern viel 'hübschere' von DevExpress.
Hier das Interface:

Delphi-Quellcode:

Function csMessageDlg(Const Msg: String; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;

Procedure csShowError(Const aMsg: String);
Function csConfirm(Const aMsg: String): Boolean;
Function csInputBox(Const ACaption, APrompt, ADefault: String): String;
Function csInputQuery(Const ACaption, APrompt: String; Var Value: String): Boolean;
Procedure csShowMessage(Const aMsg: String);
Var
  ButtonCaptions: Array[TMsgDlgBtn] Of String = (
    '&Ja', '&Nein', '&OK', 'A&bbruch', '&Beenden', '&Wiederholen', '&Ignorieren',
    'A&lle', 'Alle N&ein', 'Alle J&a', '&Hilfe');

  DialogCaptions: Array[TMsgDlgType] Of String = ('Warnung', 'Fehler',
    'Information', 'Bestätigung', '');

Luckies Ansatz ist aber bestimmt besser...

[edit] ooops ohne anhang bringt das ja nix [/edit]