Вот примерчик только для Мемо на PageControl.
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
tabsheets : array of TTabsheet;
memos : array of TMemo;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if length(tabsheets) <> -1
then
Begin
setlength(tabsheets, length(tabsheets) + 1);
setlength( memos , length( memos ) + 1);
end
else
Begin
setlength(tabsheets, 1);
setlength( memos , 1);
end;
tabsheets[high(tabsheets)] := TTabsheet.Create(PageControl1);
tabsheets[high(tabsheets)].Parent := PageControl1;
tabsheets[high(tabsheets)].PageControl := PageControl1;
tabsheets[high(tabsheets)].Caption := 'newPage';
memos[high(memos)] := tmemo.Create(tabsheets[high(tabsheets)]);
memos[high(memos)].Parent := tabsheets[high(tabsheets)];
end;
end.
|
|
