Кнопки mbYes, mbNo и др. на русском языке...

← →
inko (2002-04-05 18:54) [0]

Можно ли вывести кнопки на созданном окне на русском языке ( mbYes, mbNo - выводятся на только английском):

AMsgDialog := CreateMessageDialog("Перезагрузить компьютер?", mtWarning, [ mbYes, mbNo]);
with AMsgDialog do
try
Caption := "Загаловок окна" ;
Case ShowModal of
ID_YES: exitWindowsEx(EWX_REBOOT,0);
ID_NO: Close;
end;
finally
Free;
end;
end;

← →
Song (2002-04-05 19:00) [1]

Программно нет.
Но можно заменить некоторые файлы, и кнопки будут русскими. Файлы разные для разных версий. Есть несколько сайтов, где я видел эти файлы. Также эти линки я видел где-то в конференции, поищите.

← →
ghost_by (2002-04-05 19:29) [2]

Редактором ресурсов ( Restorator) подредактировать файл. Если не ошибаюсь, то vcl50.bpl (для Delphi 5.0) - это поможет, если собираешь программу с включенной опцией Build with runtime packages.

Есть еще вариант - подредактировать файл Dialogs.pas из исходников VCL.

← →
lipskiy (2002-04-05 19:33) [3]

У меня есть эти русские ресурсы, если надо - пиши на мыло, вышлю, они не тяжелые.

← →
Юрий Зотов (2002-04-05 20:51) [4]

Есть простой вариант, при котором ничего ломать не нужно, а диалог автоматически будет появляться на языке самой Windows - хоть на китайском (что, в общем-то, и нужно юзеру).

if MessageBox(0, "Перезагрузить компьютер?", "Заголовок окна",
MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON2 or MB_TASKMODAL)
= IDYES then ExitWindowsEx(EWX_REBOOT, 0);

← →
Набережных С. (2002-04-05 21:11) [5]

Можно и программно:
AMsgDialog := CreateMessageDialog("Перезагрузить компьютер?", mtWarning, [mbYes, mbNo]); with AMsgDialog do try for n:=0 to ControlCount-1 do if Controls[n] is TButton then with TButton(Controls[n]) do if ModalResult = IDYES then Caption:="Да" else if ModalResult = IDNO then Caption:="Нет"; Caption := "Загаловок окна" ;

← →
Vlr (2002-04-05 21:18) [6]

Вот за это огромное спасибо !

Кнопки mbYes, mbNo и др. на русском языке... Найти похожие ветки