Р а з д е л ы
Новости
Гостевая
Форум
Чат
Учебники
Программы
Статьи по Delphi
Статьи по Html
Компьютерные статьи
Java скрипты
Приколы
Отправить SMS
Мои разработки
 
К о н т а к т ы

ICQ: 445511525
e-mail: ZORBI@bk.ru

c o p y r i g h t
p r o g r a m m i n g
d e s i g n e d
by ZORBI

Т р о и ц к   г

 
С с ы л к и


 
С ч е т ч и к и
Rambler's Top100
 
..:: Статьи ::..
Массив визуальных компонентов

   Иногда бывает нужно создать массив визуальных компонентов,
   например, кнопок. Хотя этого нельзя сделать средствами IDE,
   как, например, в Visual Basic'е, это все же возможно: 
   Предположим, что нужно создать массив из 5 кнопок.

   type
     TForm1 = class(TForm)
       Label1: TLabel;
       procedure FormCreate(Sender: TObject);

     private
       { Private declarations }
     public
        Buttons: Array[1..5] of TButton;
        procedure ButtonsDown(Sender: TObject);
     end;
   //......................
   procedure TForm1.FormCreate(Sender: TObject);
   var i: integer;
   begin
      for i:=1 to 5 do begin
          Buttons[i]:=TButton.Create(Self);
          with Buttons[i] do begin
              parent:=self;
              caption:='Кнопка ¹'+IntToStr(i);
              tag:=i;
              top:=i*30;
              onClick:=ButtonsDown;
              // Это добавление кнопки в массив контролов формы !
              self.InsertControl(Buttons[i]);

          end;
     end;
   end;
   //Через свойство Tag программа узнает, какая кнопка нажата
   procedure TForm1.ButtonsDown(Sender: TObject);
   begin
        Label1.Caption:='Нажата кнопка ¹'+IntToStr((Sender as TButton).Tag);
   end;
	             		

Источник: www.delphikingdom.ru  

Hosted by uCoz