Главная страница
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.017 c
1-84178
Yakudza
2003-06-07 20:52
2003.06.26
destAddress := PInAddr(pHostEn^.h_addr_list^)^;


1-84126
Hooch
2003-06-10 13:26
2003.06.26
Вид приложения


14-84520
Soft
2003-06-06 13:09
2003.06.26
Вы готовы осознать Будущее?


14-84610
Igor
2003-06-09 13:02
2003.06.26
Длинные строки (>=1Gb)


1-84380
Andy BitOff
2003-06-09 12:01
2003.06.26
Как выбрать SelectItems