Значения для 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;

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]

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

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