Показать сообщение отдельно
  #2  
Старый 24.02.2009, 11:58
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от MrAWP
Помогите пожалуйста сделать смену языка в программе : например у меня в пункте меню есть пункт настройки и там есть 2 варианта русский и английский, как сделать чтобы при клике на английский все надписи на программе поменялись на такие которые я захочу ?! И наоборот.
Вот написал пример, скачай посмотри, тут самое просто управление языками http://narod.ru/disk/6029275000/Langs.rar.html
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием