Entry

Delphi: Component: PageControl: How to create dynamically a PageControl component with N tabsheets?

Apr 4th, 2006 16:45
Knud van Eeden,

----------------------------------------------------------------------
--- Knud van Eeden --- 04 April 2006 - 11:52 pm ----------------------

Delphi: Component: PageControl: How to create dynamically a 
PageControl component with N tabsheets?

---

 1. -Create a new application

     1. -Open a form

         1. -Put a button on it

 2. -E.g. using the program:

--- cut here: begin --------------------------------------------------

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var PageControl1: TPageControl;
var TabSheet: array [1..10] of TTabSheet;
var I : integer;
var minI : integer;
var maxI : integer;
begin
  minI := 1;
  maxI := 10;
  PageControl1 := TPageControl.Create( Self );
  PageControl1.Parent := Self;
  for I := minI to maxI do
  begin
   TabSheet[ I ] := TTabSheet.Create( Self );
   TabSheet[ I ].Parent := Self;
   TabSheet[ I ].PageControl := PageControl1;
  end;
end;

end.

--- cut here: end ----------------------------------------------------

 3. -Run the program

 4. -Click the button

     1. -In this case 10 tabsheets will be created dynamically

===

Tested successfully on
Microsoft Windows XP Professional (service pack 2),
running
Delphi v7.x

===

Internet: see also:

---



----------------------------------------------------------------------