MessageDlg -> Die Buttons selber beschriften ?

[HolgerCW]

Hallo zusammen,

kann man bei der MessageDlg die Buttons auch selber beschriften, oder gibt es da eine andere Box ?

Gruss

Holger

[Adrian112]

Soweit ich weiß gibt es da keine Möglichkeit, musst dir wohl einen eigenen Dialog machen.

[RavenIV]

Du kannst bestimmen, welche Buttons im Dialog erscheinen.
Aber Du bist an die vorgegebenen Buttons gebunden.
Die Beschriftung wird dann von Windows gesetzt, und zwar in der Sprache, die bei Windows eingestellt ist.

Zitat:

TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
mbAll, mbNoToAll, mbYesToAll, mbHelp);

  MessageDlg('User oder Passwort falsch', mtError, [mbOK, mbAbort], 0);

[DeddyH]

Evtl. wäre dieser Source von Luckie mal einen Blick wert.

[HolgerCW]

Vielen dank,

dann weiss ich nun bescheid welche Möglichkeiten ich da habe.

Gruss

Holger

[calculon]

Hi

den folgenden Code hab' ich etwas modifiziert und den gibt es hier in der DP; finde ihn aber grad nicht:

Delphi-Quellcode:

function ConfBox(text: string): integer;
var
  f: TForm;
begin
  f := CreateMessageDialog(text, mtConfirmation, [mbYes, mbNo, mbCancel]);
    try
      f.Caption := 'Titeltext';
      (f.FindComponent('Cancel') as TButton).Caption := 'Cancel ersetzen'; 
      (f.FindComponent('Yes') as TButton).Caption := 'Yes ersetzen';
      (f.FindComponent('No') as TButton).Caption := 'No ersetzen';
      result := f.ShowModal;
    finally
      f.Free;
    end;
end;

Die Funktion liefert dir die selben Rückgabewerte wie die normale MessageDlg-Boxen. Allerdings würde ich die Funktion nur für verschiedene Sprachen nutzen (bei mir, weil ich die Delphi 7 Personal Version von Borland/Poland hab' und diese englische Dialoge liefert, kann ich die zur LAufzeit abändern). Bsp.:

Delphi-Quellcode:

function ConfBox(language: integer; text: string): integer;
var
  f: TForm;
begin
  f := CreateMessageDialog(text, mtConfirmation, [mbYes, mbNo, mbCancel]);
    try
      case language of
        0: begin 
             f.Caption := 'Bestätigen';
             (f.FindComponent('Cancel') as TButton).Caption := 'Abbrechen';
             (f.FindComponent('Yes') as TButton).Caption := 'Ja';
             (f.FindComponent('No') as TButton).Caption := 'Nein';
           end;
        1: begin 
             f.Caption := 'Confirmatione'; // <-- nur gibberish ^^
            (f.FindComponent('Cancel') as TButton).Caption := 'Aborto';
            (f.FindComponent('Yes') as TButton).Caption := 'Si';
            (f.FindComponent('No') as TButton).Caption := 'No';
           end;
        2: begin 
             f.Caption := 'De la Confirmation';
            (f.FindComponent('Cancel') as TButton).Caption := 'Aborté';
            (f.FindComponent('Yes') as TButton).Caption := 'Oui';
            (f.FindComponent('No') as TButton).Caption := 'Non';
           end;
        end;
      result := f.ShowModal;
    finally
      f.Free;
    end;
end;

Und evtl. müsstest du auch noch die Position und Größe der Buttons anpassen. Also alles in alle mit Vorsicht zu genießen.

Gruß

Calculon
--

[bitsetter]

So einen ähnliche Thread hatten wir schon einmal.

[Ralf Kaiser]

Zitat von RavenIV:

Die Beschriftung wird dann von Windows gesetzt, und zwar in der Sprache, die bei Windows eingestellt ist.
  MessageDlg('User oder Passwort falsch', mtError, [mbOK, mbAbort], 0);

Nö.

MessageDlg ist eine Routine die in Delphi implemetiert ist. Delphi setzt die Captions und die dargestellte Sprache hängt von der Sprache der Delphi-Installation ab. Man kann sogar, nachdem der Dialog mit "CreateMessageDlg" erstellt wurde die Captions noch per Code ändern (siehe dazu die anderen Antworten)

Was du meinst ist "MessageBox()".