|
|
|
|
Создание свойства-массива компонентов
Вот способ использования свойства-массива. Здесь использована стандартная техника создания списка компонентов CheckBox в обработчике события OnCreate, позволяющая затем обращаться к ним как именно к массиву компонентов CheckBox.
Здесь я приведу два способа "собирания" CheckBox в одном массиве. Один просто собирает все CheckBox на форме. Это простой список, но вы должны убедиться в том, что порядок размещения в нем компонентов такой, каким вы хотите его видеть в массиве. Это нормально в данном случае. Другой способ перечисляет все компоненты согласно их нумерации, заложенной в их имени, но чтобы им воспользоваться, его необходимо раскоментарить. Существует множество других способов. Пусть данный совет послужит вам отправной точкой в изучении интересного вопроса оптимизации кода.
|
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FCheckboxes : TList ;
function GetCheckbox( Index : integer ) : TCheckbox ;
public
property Checkboxes[ Index : integer ] : TCheckbox read GetCheckbox ;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var i : integer ;
AComponent : TComponent ;
begin
FCheckboxes := TList.Create ;
{ ТАКЖЕ: это собирает все CheckBox в порядке очередности }
for i := 0 to ComponentCount - 1 do
if Components[ i ] is TCheckbox then
FCheckboxes.Add( Components[ i ] ) ;
{ ИЛИ: если они имеют имя CheckboxNN и вы хотите
разместить их в массиве в том же порядке... }
{for i := 1 to MaxInt do begin
AComponent := FindComponent( 'Checkbox' + IntToStr( i ) ) ;
if AComponent = NIL then break ;
FCheckboxes.Add( AComponent ) ;
end ;}
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FCheckboxes.Free ;
end;
function TForm1.GetCheckbox( Index : integer ) : TCheckbox ;
begin
Result := TCheckbox( FCheckboxes[ Index ] ) ;
end ;
|
- Mike Scott [000888]
|
|
|
|
|