[gelöst] Wie gebe ich den Dlgbtn eine deutsche Beschreibung?

[wega]

Hallo zusammen,

ich möchte den Dialogbutton "Yes" und "NO" die deutsche Bezeichnung "Ja" und "Nein" mitgeben.
wie stelle ich so etwas an?

Hier mein Quellcode:

Code: Alles auswählen

procedure TForm1.Button2Click(Sender: TObject);
begin
     // Abfrage einbauen
     //ShowMessage('soll das Programm wirklich beendet werden?');
     //obige Abfrage zu einfach!
 
     case MessageDlg('Abschluszinformation',
          'Soll das Programm wirlich beendet werden?', mtInformation,
          //[mbOk, mbCancel, mbYes], 0) of
          [mbYes, mbNo], 0) of
      mrYes: close;
     end;
 
 
     //close;
end;

mit Gruß
Werner

[theo]

http://wiki.lazarus.freepascal.org/Tran ... of_program

[wega]

Hallo Theo,

danke für Deine Antwort.

Ich habe mein Problem wie folgt gelöst.

Code: Alles auswählen

procedure TForm1.Bt_progendClick(Sender: TObject);
begin
     // Abfrage einbauen
     //ShowMessage('soll das Programm wirklich beendet werden?');
     //obige Abfrage zu einfach!
 
     Case QuestionDlg('Abschluszinformation','Soll das Programm wirlich beendet werden?',
              mtCustom,  // removes the bitmap
             [mrYes,'Ja',mrNo,'Nein'],0) of
      mrYes: close;
     end;
end;

Mit dem QuestionDialog sind die Eingabebutton zu überschreiben.

Mit Gruß
Werner