Перевод формы - Общие вопросы Delphi

misher · 05.09.2010, 13:40

Вобщем главная форма у меня полностью на Английском, но я сделал вкладку Language и там добавил русский язык. По нажатию на его нужно чтобы форма стала русской. Помогите это реализовать.(Сначала хотел просто открыть другую форму, но если я закрою главную форму, то закроется и вся прога).

DIgorevich · 05.09.2010, 13:45

Обсуждалось уже. В поиск.

ZvEr_HaCkEr · 05.09.2010, 13:50

Создаешь ini'к с языком как-то так

Код:

[Menu]
N1=Файл
Uscita1=Новая игра
Uscitadelgiocho1=Выход
N2=Опции
Lingue=Языки
En=English
It=Italiano
Ru=Русский
Gn=Deutsch
Circa1=О программе
Refiremento1=Информация

До равно имя menuitems.После в OnClick пиши

Код:

i:=tinifile.Create(extractfilepath(paramstr(0))+'sources/languages/ru.ini');
try
for k := 0 to componentcount - 1 do begin
 if components[k] is Tmenuitem then
 tmenuitem(components[k]).Caption:=i.ReadString('Menu',tmenuitem(components[k]).Name,tmenuitem(components[k]).Caption);
end;
finally
   i.Free;
end;
end;

Таким же образом и заголовки меток,кнопок менять можно.Не забудь в uses inifiles добавить.

misher · 05.09.2010, 23:05

Цитата:

До равно имя menuitems

как понять???
и i : какого типа переменная?

artemavd · 06.09.2010, 04:22

Цитата:

и i : какого типа переменная?

Может так:

Код:

var
 i: TIniFile;

ZvEr_HaCkEr · 06.09.2010, 06:56

Код:

procedure TForm1.RuClick(Sender: TObject);
    var
 i:Tinifile;
 k:Integer;
begin
i:=tinifile.Create(extractfilepath(paramstr(0))+'sources/languages/ru.ini');
try
for k := 0 to componentcount - 1 do begin
 if components[k] is Tmenuitem then
 tmenuitem(components[k]).Caption:=i.ReadString('Menu',tmenuitem(components[k]).Name,tmenuitem(components[k]).Caption);
end;
finally
   i.Free;
end;
end;

Цитата:

как понять???

в моем случаи Refiremento1-это имя компонента меню(menuitems)

misher · 06.09.2010, 11:59

Где этот кампонент?

ZvEr_HaCkEr · 06.09.2010, 12:28

Какой компонент?В OnClick код попробуй и все!Я локализацию так проводил.

misher · 06.09.2010, 13:30

Цитата:

в моем случаи Refiremento1-это имя компонента меню(menuitems)

вот этот кампонент!

Stilet · 06.09.2010, 13:36

Цитата:

вот этот кампонент!

Не кричи.
Нет тут явно этого компонента - он (и его элементы) последовательно перебираются в цикле, который перебирает все компоненты на форме, отсеивая ненужные.

Код:

if components[k] is Tmenuitem

05.09.2010, 13:40	#1
misher Участник клуба Регистрация: 26.05.2010 Сообщений: 1,648	Перевод формы Вобщем главная форма у меня полностью на Английском, но я сделал вкладку Language и там добавил русский язык. По нажатию на его нужно чтобы форма стала русской. Помогите это реализовать.(Сначала хотел просто открыть другую форму, но если я закрою главную форму, то закроется и вся прога). This world will never be What I expected (c)

05.09.2010, 13:45	#2
DIgorevich Погулять вышел Участник клуба Регистрация: 17.05.2010 Сообщений: 1,573	Обсуждалось уже. В поиск. Никогда не знаешь, где тебе повезет... (Фрай)

06.09.2010, 11:59	#7
misher Участник клуба Регистрация: 26.05.2010 Сообщений: 1,648	Где этот кампонент? This world will never be What I expected (c)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Из DBGrid одной формы отразить в ListBox на другой формы	VenZell	БД в Delphi	2	28.05.2010 07:27
Заголовок Child формы имеет цвет неактивной формы, хотя форма активна?	PrimaryPro	Общие вопросы Delphi	0	12.03.2010 11:12
как привязать размеры содержимого формы к размерам самой формы	acid_bmstu	Общие вопросы Delphi	4	05.02.2010 05:02
Как сделать границы формы другого цвета,формы??	Дима я	Общие вопросы Delphi	3	22.06.2009 07:24
Обращение из формы в dll к элементу главной формы (delphi)	a_n_n_a	Помощь студентам	3	10.05.2009 04:00

06.09.2010, 12:28	#8
ZvEr_HaCkEr VisualC++/DirectX Форумчанин Регистрация: 16.07.2010 Сообщений: 831	Какой компонент?В OnClick код попробуй и все!Я локализацию так проводил.