Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.20;
Скачать: CL | DM;

Вниз

Сообщения на русском языке   Найти похожие ветки 

 
nitro   (2002-06-07 11:42) [0]

Народ, как сделать, чтобы все сообщения типа MessageDlg были на русском языке? Имеется ввиду, чтобы надписи на кнопках были по русски?

Еще интересует, можно ли изменить заголовок окна ошибки? Если да, то как...

Заранее благодарен.


 
Игорь Шевченко ©   (2002-06-07 11:45) [1]

Windows.MessageBox показывает надписи на языке Windows (на русских Windows - русские)

Или, к примеру, так:

const
SMsgDlgYes = "Да";
SMsgDlgNo = "Нет";
SMsgDlgCancel = "Отмена";

function hs_MessageDlgPos(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
begin
with CreateMessageDialog(Msg, DlgType, Buttons) do
try
Caption := Application.Title; { Здесь можно заголовок поменять }
HelpContext := HelpCtx;
Position := poMainFormCenter;
if mbYes in Buttons then
(FindComponent("Yes") as TButton).Caption:=SMsgDlgYes;
if mbNo in Buttons then
(FindComponent("No") as TButton).Caption:=SMsgDlgNo;
if mbCancel in Buttons then
(FindComponent("Cancel") as TButton).Caption:=SMsgDlgCancel;
Result := ShowModal;
finally
Free;
end;
end;

В FAQ пора добавлять, а то регулярно такой вопрос возникает.


 
Romkin ©   (2002-06-07 11:52) [2]

Сложно, проще взять исходники вида ..const...pas
в отдельный каталог и перевести. После прописывания Library path к этому каталогу делаешь build и все по-русски
В частности, consts.pas SMsgDlg... - сообщения MessageDlg, S..Button - Надписи на кнопках


 
MAxiMum ©   (2002-06-07 11:59) [3]

Изменить в файле ($Delphi)\Source\VCL\Consts.pas строки, начинающиеся с SMsgDlg.


 
Игорь Шевченко ©   (2002-06-07 12:00) [4]

Romkin © (07.06.02 11:52)

Не годится при использовании пакетов

MAxiMum © (07.06.02 11:59)

Не трожь генофонд!


 
Romkin ©   (2002-06-07 12:22) [5]

Второй выход - resource DLL, там все можно перевести



Страницы: 1 вся ветка

Текущий архив: 2002.06.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
1-65146
Vagabond
2002-06-07 14:09
2002.06.20
Ошибки


1-65101
Демон
2002-06-07 01:17
2002.06.20
2 вопроса про Таймер!!!


1-65031
MSergey
2002-06-09 16:20
2002.06.20
TListView


3-64911
int64
2002-05-24 08:41
2002.06.20
Альтернатива post_event.


3-64955
Dok_3D
2002-05-27 13:58
2002.06.20
Почему TDataSetProvider не поддерживает ...