Как изменить надписи кнопок в модальном окне?

[sermaxim]

Нужно изменить надпись кнопки с 'YES' на "ДА", также изменить/убрать картинку с кнопки.
И можно ли выдавать окно без иконки? например mtCustom выдает иконку как mtInformation?

Это возможно сделать в теле программы не меняя исходников?

Подскажите, пожалуйста, на примере такого кода:

Код: Выделить всё

mDlg := MessageDlg('Внимание', 'Сохранить изменения?', mtConfirmation,
         [mbYes, mbNo, mbCancel],0);


[v-t-l]

http://freepascal.ru/forum/viewtopic.php?t=7189

[alex208210]

Код: Выделить всё

function Translate(name2,Value : AnsiString; Hash : Longint; arg:pointer):AnsiString;
begin
  case StringCase(Value,['&Yes','&No','Cancel','Confirmation']) of
   0: Result:='&Да';
   1: Result:='&Нет';
   2: Result:='Отмена';
   3: Result:='Предупреждение!';
   else Result:=Value;
  end;
end;


[sermaxim]

alex208210, подскажите пожалуйста, а как приведенную вами функцию применить к самому окну?

[Mr.Smart]

viewtopic.php?f=5&t=5038&st=0&sk=t&sd=a

[sermaxim]

спасибо за ссылочку! с переводом получилось
А как можно иконки поменять/убрать на кнопках?
и еще такой маленький вопросик: А зачем нужен амперсанд "&" перед словом? у "Cancel" его нет..

[BadBoyAlex]

А зачем нужен амперсанд "&" перед словом? у "Cancel" его нет..

Для подчёркивания буквы.
Например,

Код: Выделить всё

Button1.Caption:= 'В&ыход'

на кнопке надпись:
Выход

[Mr.Smart]

А как можно иконки поменять/убрать на кнопках?

Без модификации не получится

и еще такой маленький вопросик: А зачем нужен амперсанд "&" перед словом? у "Cancel" его нет..

Амперсанд указывает хот кей для кнопки.

[sermaxim]

Ясно, но у меня они подчеркиваются только в панели свойств кнопки, а после компиляции нет..

осталось еще с иконками разобраться надеюсь кто-нибудь подскажет)

[Mr.Smart]

Хоткей имеет сочетание Alt+Буква. Если у вас Виндас при нажатии на Alt буква начнёт подсвечиваться.
Насчёт иконок, а вы уверенны, что это надо?

[sermaxim]

Mr.Smart, да очень хочется) может и решение есть столь же лаконичное как с переводом

действительно подсвечиваются при нажатии на alt только не срабатывает например alt+д

[Mr.Smart]

да очень хочется) может и решение есть столь же лаконичное как с переводом

Здесь путь намного сложнее т.к. данный функционал реализован через виджеты (для кроссплатформенности). Проще реализовать данные диалоги самому.

действительно подсвечиваются при нажатии на alt только не срабатывает например alt+д

С русскими буквами не всегда срабатывает, но если у вас в данный момент выдрана русская раскладка клавиатуры, то должно.