Динамические PageControl и TabSheet

Code:

// Код использует форму с единственной на ней кнопкой.

unit DynamicTabSheetsUnit;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

   Button1: TButton;

   procedure Button1Click(Sender: TObject);

   procedure TestMethod(Sender: TObject);

private

   { Private declarations }

public

   { Public declarations }

end;

var

Form1: TForm1;

implementation

uses ComCtrls;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

PageControl: TPageControl;

TabSheet: TTabSheet;

begin

// Создаем PageControl

PageControl := TPageControl.Create(Self);

PageControl.Parent := Self;

// Создаем первую страницу и связываем ее с PageControl

TabSheet := TTabSheet.Create(Self);

TabSheet.Caption := 'Закладка 1';

TabSheet.PageControl := PageControl;

// Создаем первую страницу

with TButton.Create(Self) do

begin

   Caption := 'Кнопка 1';

   OnClick := TestMethod; // Назначаем обработчик события

   Parent := TabSheet;

end;

// Создаем вторую страницу и связываем ее с PageControl

TabSheet := TTabSheet.Create(Self);

TabSheet.Caption := ' Закладка 2';

TabSheet.PageControl := PageControl;

end;

procedure TForm1.TestMethod(Sender: TObject);

begin

ShowMessage('Привет');

end;

end.