Массив элементов управления

[Рик]

Здравствуйте. Как программно загрузить в форму массив элементов управления(кнопки)? И можно ли каждой кнопке присвоить свой индекс, чтоб обращаться к конкретному элементу? Если можно, то покажте, как расположить элементы упорядочано: матрица 4 Х 5, например

[Stilet]

загрузить в форму

Откуда?

И можно ли каждой кнопке присвоить свой индекс

Вариантов море. Я лично предпочитаю просто дать имя, в котором будет фигурировать этот "индекс". А потом либо в цикле пройдя по контролам:

for i:=0 to controlscount-1 do
 if (Controls[i] is TButton)and(TButton(Controls[i]).Name='_'+Индекс) then ...

Либо через FindComponent найти по имени кнопку.

покажте, как расположить элементы упорядочано: матрица 4 Х 5, например

Упорядоченно? В DrawGrid их упакуй:

unit Unit1;

interface

uses       Contnrs,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    DrawGrid1: TDrawGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    bs:TComponentList;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;b:TButton;
begin
 bs:=TComponentList.Create;
 with DrawGrid1 do
  for i:=0 to RowCount-1 do for j:=0 to ColCount-1 do begin
   b:=TButton.Create(DrawGrid1);
   b.Parent:=DrawGrid1;
   bs.Add(b);
  end;
end;

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var b:TButton;
begin
 with TDrawGrid(Sender) do begin
  b:=TButton(bs[ACol+ARow*ColCount]);
  if b=nil then exit;
  with b do begin
   top:=rect.Top;
   Left:=rect.Left;
   Width:=Rect.Right-rect.Left;
   Height:=rect.Bottom-rect.Top;
   show;
  end;
 end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 bs.Free;
end;

end.

Понятна идея?

[Рик]

Stilet, спасибо за ответ. Да.... большую часть вашего ответв я не понял...прочитав его я еще раз убедился, что для решения моих задач в Дельфи мне еще многому предстоит научиться.

[Stilet]

Ну извини, как я понимаю так и написал... Если делать проще то получится еще больше кода.

[Рик]

А как написать процедуру обработки щелчка по этим кнопка?

[ArtGrek]

деиствия для всех кнопок должно быть одно и тоже?

[Рик]

можно ли поподробнее?