Изменить Caption...

← →
PiOnEr (2007-10-13 19:27) [0]

Здравствуйте!
Столкнулся с проблемой. Требуется изменить Caption у всех объектов в форме (их много, перечислять не хотелось бы).
Хотел сделать что-нить типа...
"цикл
Form1.Controls[i].Кэпшн:=massiv[i]"

Но вот Caption он не знает и не разрешает.
Собственно говоря это требуется, чтобы сделать русские названия на кнопочках и т.п. английскими и наоборот.
Помогите плиз, или подкиньте какую-нить идейку умную.
Спасибо!

← →
Kolan © (2007-10-13 19:39) [1]

> Form1.Controls[i].Кэпшн:=massiv[i]«

Хакнуть?

TCrackControl = class(TControl) public property Caption; end;

procedure TForm1.BitBtn1Click(Sender: TObject); var I: Integer; begin for I := 0 to Form1.ComponentCount  1 do if Form1.Components[I] is TControl then TCrackControl(Form1.Components[I]).Caption := "Kolan"; end;

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

Есть готовые решения.

← →
Leonid Troyanovsky © (2007-10-13 20:13) [2]

> Kolan © (13.10.07 19:39) [1]

> for I := 0 to Form1.ComponentCount — 1 do

Form1 - MD.

--
Regards, LVT.

← →
Kolan © (2007-10-13 21:17) [3]

> Form1  MD.

Вставил для совпадения с сабжем&#133

← →
Ins © (2007-10-13 21:34) [4]

> TCrackControl = class(TControl)
> public
> property Caption;
> end;

Если в одном модуле, то в public можно и не переносить...

← →
PiOnEr (2007-10-13 22:29) [5]

Точно! Огромное спасибо. Помогло!
Хакать я ничё не собираюсь, просто узнал, что мою прогу было бы не плохо сделать многоязычной...
Ещё раз сенкс и респект!

> Хакнуть?

> Хакать я ничё не собираюсь

имхо приведен неудачный термин для такого подхода) который сбил новичка с толку

Изменить Caption... Найти похожие ветки