Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Как обратиться к компоненту в цикле через переменную?   Найти похожие ветки 

 
SergeY ©   (2003-06-12 22:56) [0]

Небольшая проблемка. Надо обратиться к компоненту, например TShape через переменную, что-то вроде TShape[i].Color ...
P.S. Обязательно для Delphi6, в 5 помоему можно через FindComponent, а в 6 у меня не вышло.


 
Palladin ©   (2003-06-12 23:01) [1]

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

FindComponent никуда не исчезало и в D6...
У тебя в программе ошибка


 
_ALEXey_ ©   (2003-06-13 13:36) [2]

TShape(FindComponent( <название>)).Color:= .....


 
dataMaster ©   (2003-06-13 14:01) [3]

Или так:

var
Form1: TForm1;
s:array [1..6] of TShape;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
a, b:integer;
begin
b:=1;
for a:=1 to ComponentCount do
if Components[a-1] is TShape then
begin
s[b]:=TShape(Components[a-1]);
Inc(b);
end;
FrmSize(Form1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
s[1].Brush.Color:=clRed;
s[2].Brush.Color:=clLime;
s[3].Brush.Color:=clBlue;
s[4].Brush.Color:=clYellow;
s[5].Brush.Color:=clGreen;
s[6].Brush.Color:=clMaroon;
end;



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

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
1-84231
Dark Simpson
2003-06-13 02:46
2003.06.26
Как узнать параметры функции в DLL


1-84329
Viktoria
2003-06-15 18:35
2003.06.26
Обновление метки в цикле.


14-84650
` frizZ. `
2003-06-10 12:07
2003.06.26
От чего зависит размер скомпилированного файла ?


14-84630
Liso
2003-06-10 00:22
2003.06.26
zdrastwuj od padruga z polszy


3-83975
PIV
2003-05-24 22:35
2003.06.26
Базы данных