Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Вниз

Значения для Button ов   Найти похожие ветки 

← →
Serious Sam   (2004-05-10 23:31) [0]

Можноли 5 Button"ам свойству Caption присвоить одно и тоже значение, но как-нибудь побыстрее чем:
Button1.Caption:="Delphi";
Button2.Caption:="Delphi";
Button3.Caption:="Delphi";
..........................
и т. д.?

---

← →
Gero ©   (2004-05-10 23:34) [1]

Побыстрее в плане написания кода или в плане скорости работы?

---

← →
Serious Sam   (2004-05-11 00:35) [2]

Побыстрее в плане написания кода

---

← →
Dimaxx ©   (2004-05-11 00:39) [3]

Если в режиме разработки, то выбери (с шифтом) несколько кнопок и задай свойство.

---

← →
Serious Sam   (2004-05-11 00:46) [4]

Мне нужно чтоб во время работы приложения значения свойств "буттонов" менялось. Может это можно сделать с помощью цикла?

---

← →
Mihey ©   (2004-05-11 00:51) [5]

Вроде так:

for i := 1 to 5 do
TButton(Form1.FindComponent("Button" + IntToStr(i))).Caption := Delphi;

---

← →
Mihey ©   (2004-05-11 00:52) [6]

Delphi в кавычки: "Delphi" :)))

---

← →
Fedia   (2004-05-11 00:54) [7]

Попробуй это:

for i:=0 to ComponentCount-1 do
 begin
   if Components[i] is TButton then  
    (Components[i] as TButton).Caption:="Delphi";
 end;

Должно сработать.

---

← →
Serious Sam   (2004-05-11 00:56) [8]

СПАСИБО! Все работает.

---

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

Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Наверх

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