| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Изменить Caption... [D6, Win2k]

PiOnEr ©   (2007-10-13 19:27:00) 

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

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

---

Dmitry S   (2007-10-14 06:22:00) [1]

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

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

---

MetalFan   (2007-10-13 23:17:00) [2]

> Хакнуть?


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

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

---

PiOnEr   (2007-10-13 22:29:00) [3]

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

---

Ins   (2007-10-13 21:34:00) [4]

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

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

---

Kolan   (2007-10-13 21:17:00) [5]

> Form1 — MD.

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

---

Leonid Troyanovsky   (2007-10-13 20:13:00) [6]

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

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

Form1 - MD.

--
Regards, LVT.

---

Kolan   (2007-10-13 19:39:00) [7]

> 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;


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

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

---

Наверх