Создать массив кнопок во время выполнения

Delphi , Компоненты и Классы , RTTI

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

private
   {...}
   procedure RunTimeButtonClick(Sender: TObject);
 end;


   {...}
 var
   Form1: TForm;
   {Declare an Array of TButtons}
   RunTimeButtons: array[1..10] of TButton;

 {...}

 implementation

 {...}

 procedure TForm1.RunTimeButtonClick(Sender: TObject);
 begin
   {Show the Button Nummer that was clicked}
   ShowMessage('Button' + IntToStr((Sender as TButton).Tag) + ' clicked!');
 end;

 procedure TForm1.Button13Click(Sender: TObject);
 var
   i: Byte;
 begin
   for i := 1 to 10 do
   begin
     {Create the buttons}
     RunTimeButtons[i] := TButton.Create(Self);
     with RunTimeButtons[i] do
     begin
       Parent  := Form1;
       Caption := 'Button ' + IntToStr(i);
       Top     := i * Height;
       Tag     := i;
       {Assign a OnClick handler}
       OnClick := RunTimeButtonClick;
       Visible := True;
     end;
   end;
 end;

Статья Создать массив кнопок во время выполнения раздела Компоненты и Классы RTTI может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: RTTI ::