![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Кнопки mbYes, mbNo и др. на русском языке... [D3, Win95/98]
inko © (2002-04-05 18:54:00)Можно ли вывести кнопки на созданном окне на русском языке ( 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;
Vlr (2002-04-05 21:18:00) [1]Вот за это огромное спасибо !
Набережных С. (2002-04-05 21:11:00) [2]Можно и программно:
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 := "Загаловок окна" ;
Юрий Зотов (2002-04-05 20:51:00) [3]Есть простой вариант, при котором ничего ломать не нужно, а диалог автоматически будет появляться на языке самой Windows - хоть на китайском (что, в общем-то, и нужно юзеру).
if MessageBox(0, "Перезагрузить компьютер?", "Заголовок окна",
MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON2 or MB_TASKMODAL)
= IDYES then ExitWindowsEx(EWX_REBOOT, 0);
lipskiy (2002-04-05 19:33:00) [4]У меня есть эти русские ресурсы, если надо - пиши на мыло, вышлю, они не тяжелые.
ghost_by (2002-04-05 19:29:00) [5]Редактором ресурсов ( Restorator) подредактировать файл. Если не ошибаюсь, то vcl50.bpl (для Delphi 5.0) - это поможет, если собираешь программу с включенной опцией Build with runtime packages.
Есть еще вариант - подредактировать файл Dialogs.pasиз исходников VCL.
Song (2002-04-05 19:00:00) [6]Программно нет.
Но можно заменить некоторые файлы, и кнопки будут русскими. Файлы разные для разных версий. Есть несколько сайтов, где я видел эти файлы. Также эти линки я видел где-то в конференции, поищите.