Цитата ShadeUa:
Не переводиться текс, там нужно что то дописать я незнаю что »
|
Все как и с остальными элементами скрипта. Создаете CustomMessages
Код:

[CustomMessages]
rusCaption=заголовок
rusDesc=описание
engCaption=Caption
engDesc=Description
и прописываете в процедуре ChangeLang
Код:

SystemPage.Caption := CustomMessage(lang+'Caption');
SystemPage.Description := CustomMessage(lang+'Desc');