Скачать: CL | DM;

Изменить 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]

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

---

← →
MetalFan ©   (2007-10-13 23:17) [6]

> Хакнуть?


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

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

---

← →
Dmitry S ©   (2007-10-14 06:22) [7]

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

Неожиданное решение... не знал, что так можно.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c