Вызов процедуры

[Stanislav]

Добрый вечер!

У меня такая проблема у меня есть некая процедура:

 private
    { Private declarations }
  public
    procedure ChangeLang(LangSection: string);



end;


    { Public declarations }


var
  Form1: TForm1;

implementation

uses Unit2;
 procedure TForm1.ChangeLang(LangSection: string);
var
  .......
 ........
begin
 .....................
...................... 
{$R *.dfm}
    end;

Данная процедура размещаеться на первой форме
Вызываеться она следующем образом:

procedure TForm1.Button4Click(Sender: TObject);

begin
Form1.ChangeLang('RUSSIAN');
end;

Вся проблема в том что пытаясь вызвать эту процедуру во второй форме

begin
Form2.ChangeLang('RUSSIAN');
end;

Она на это ругаеться аргуметируя что ChangeLang ей неизвестна так вот вопрос такой можно ли каким нибудь образом вызвать ее во второй форме не прописывая саму процедуру.. как мы это зделали в первой форме каким образом зделать чтоб эта процедура была применима ко всему проекту?

[mihali4]

Вся проблема в том что пытаясь вызвать эту процедуру во второй форме

begin
Form2.ChangeLang('RUSSIAN');
end;

Так почему же Form2??? Нужно-то Form1!!!

[FaTaL]

Конечно. Процедура же в первой форме описана, так что и вызывай её с первой формы!

[Stanislav]

Дело в том что эта процедура по переводу компонентов (Label, Checkbox и т.д) с английский на русский я хотел зделать так:

begin
Form1.ChangeLang('RUSSIAN');
Form2.ChangeLang('RUSSIAN');
end;

Значит нельзя зделать так чтоб одна процедура была доступна во всех формах проэкта?

[Stilet]

Значит нельзя зделать так чтоб одна процедура была доступна во всех формах проэкта?

Можно. В отдельный юнит спихни ее.

[Stanislav]

Сообщение от Stilet

Можно. В отдельный юнит спихни ее.

Можно пояснить что значит спихнуть ее в отдельный юнит?

[zetrix]

Какой отдельный юнит? Form1.ChangeLang('RUSSIAN'); везде пиши и всё. Если не работает, то код в студию, косяк в функции. Я даже догадываюсь где. (1.5 года модерирования развили телепатию...)

[Stanislav]

Сообщение от zetrix

Какой отдельный юнит? Form1.ChangeLang('RUSSIAN'); везде пиши и всё. Если не работает, то код в студию, косяк в функции. Я даже догадываюсь где. (1.5 года модерирования развили телепатию...)

А можно отправлю в личку причину могу объяснить....

[Jeni]

Сообщение от Stanislav

Дело в том что эта процедура по переводу компонентов (Label, Checkbox и т.д) с английский на русский я хотел зделать так:
begin
Form1.ChangeLang('RUSSIAN');
Form2.ChangeLang('RUSSIAN');
end;

Наверное имелось ввиду, что требуется "русифицировать/англинизировать" компоненты, расположенные на разных формах, так?
Тогда можно процедуру ChangeLang создать в отдельном модуле и передавать ей в параметрах не только название языка, но и ссылку на нужную форму. Вроде того:

procedure ChangeLang(Form: TForm; const LangSection: string);
var
  I: Integer;
begin
  ........................
  for I := 0 to Form.ComponentCount - 1 do
    begin
      Form.Components[I] .....
      ........................
    end;
  ........................
end;

И вызывать ее
Form1.ChangeLang(Form1, 'RUSSIAN');
Form2.ChangeLang(Form2, 'RUSSIAN');

[mihali4]

И вызывать ее
Form1.ChangeLang(Form1, 'RUSSIAN');
Form2.ChangeLang(Form2, 'RUSSIAN');

Пардон, конечно, но этот кусок кода однозначно подразумевает наличие обработчика ChangeLang и в Unit1, и в Unit2, соответствующих формам Form1 и Form2...
Единственный бесспорно правильный вариант предложил наш З. Модератор - Zetrix.