1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
procedure TForm24.FormCreate(Sender: TObject);
const
TabTitles: array[0..25] of ShortString = ('A', 'B', 'C', 'D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z' );
var
i: Integer;
PageControl1: TPageControl;
begin
PageControl1 := TPageControl.Create(Self);
PageControl1.Parent := Self;
PageControl1.Align := alClient;
for i := Low(TabTitles) to High(TabTitles) do
with TTabSheet.Create(PageControl1) do
begin
PageControl := PageControl1;
Name := 'lettre'+TabTitles[i];
Caption := TabTitles[i];
end; |
Partager