Перевод формы

[misher]

я не кричу, у мя звонок в школе прозвенел, знак препинания поставить надо было.Спасибо.

Russian.rar Посмотрите программа запускается, а менять язык не хочет может не правильно ини-к написал?

[ZvEr_HaCkEr]

написано то правильно.вопрос в том совпадает ли имя элемента меню на форме и в ini файле.

[Stilet]

NarkoIII@

Смешной ты парень (верная ава у тебя). Код то где? Или телепатировать прикажешь, так у нас сегодня день антителепатии )

[misher]

вот вам код...

procedure TForm1.N1Click(Sender: TObject);
var
i:Tinifile;
k:Integer;
begin
i:=tinifile.Create(extractfilepath( paramstr(0))+'C:\Documents and Settings\Admin\Рабочий стол\MyBooks\Language\Russian.ini') ;
try
for k := 0 to componentcount - 1 do begin
if components[k] is Tmenuitem then
tmenuitem(components[k]).Caption:=i.ReadString('Menu',tmen uitem(components[k]).Name,tmenuitem(components[k]).Caption);
end;
finally
i.Free;
end;

end;
end.

а чем ава-то смешная?

[GunSmoker]

Вникать.