![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Массив кнопок... [D2, D3, D4, D5, D6, D7, D2005, 95/98, ME, NT4, 2000, XP, 2003]
C@N © (2006-06-22 22:58:00)Вопрос у меня куча SpeelButton около 60 штук можно ли их обЪединить в массив , чтоб обращаться SpeedButton[i] итп
Заране сенкс
C@N (2006-06-24 17:04:00) [1]Решил проблему!!!
type
TButArr = array[1..3] of TButton;
Var butar: TButArr;
//
///
ButtArr[i]:=Button1;
///
/////
ButtArr[i].caption:='PreveD';
//////
итп...
///
//
Всем спасибо за помощь...
!_SM_! (2006-06-24 14:36:00) [2]И они должны быть созданы....
!_SM_! (2006-06-24 14:26:00) [3]Можно.
SPBArray=array[0..59] of TSpeedButton;
...
for N:=0 to 59 do
SPBArray[N]:=TSpeedButton(FindComponent('Spbb'+IntToStr(N)));
имена спидбутонов должны быть Spbb0, Spbb1, Spbb2....Spbb59;
Шпиён (2006-06-24 14:23:00) [4]D6:
Creates and initializes an instance of TSpeedButton.
constructor Create(AOwner: TComponent); override;
Шпиён (2006-06-24 14:13:00) [5]А ругательство процитировать?
C@N (2006-06-24 14:08:00) [6]D5 SPBArray[x]:=TSpeedButon.Create;на это ругается почем свет стоит!!!
manevil (2006-06-24 12:25:00) [7]ага, только не
..., а
etc.
...
etc ;
Loginov Dmitry (2006-06-24 11:37:00) [8]C@N © (24.06.06 11:17) [2]
Фигня какая-то...(((
Что, [1] не компилится?
Тогда etc. убери. Ее только D2006 начала понимать :-)
C@N (2006-06-24 11:17:00) [9]Фигня какая-то...(((
unknown (2006-06-22 23:23:00) [10]Можно.
SPBArray=array[0..59] of TSpeedButton;
...
SPBArray[x]:=TSpeedButon.Create;
with SPBArray[x] do
begin
Name:='abc+IntToStr(x);
Parent:=Self;
OnClick:=btn1click;
...
etc.
end;