一个动态创建控件的问题?(50分)

  • 主题发起人 主题发起人 linbz
  • 开始时间 开始时间
L

linbz

Unregistered / Unconfirmed
GUEST, unregistred user!
我在用下列代码在页框PageControl1上创建了一个TabSheet但不知道如何在才创建的TabSheet
上动态创建一个PageScroller控件,请高手指点!
with TTabSheet.Create(PageControl1) do
begin
PageControl := PageControl1;
Name:='TS'
Caption := 'TS1'
end;
 
没听明白
 
procedure TForm1.Button1Click(Sender: TObject);
var TS:TTabSheet;
PS:TPageScroller;
begin
TS:=TTabSheet.Create(self);
with TS do
begin
PageControl := PageControl1;
Caption:= 'TS1'
end;
PS:=TPageScroller.Create(self);
PS.Parent:=TS;
PS.Left:=10;
PS.Top:=10;
end;
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=325421
 
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
pc1: TPageControl;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ts : TTabSheet;
pc : TPageControl;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
ts := TTabSheet.Create(Self);
ts.Caption := 'My test sheet';
pc := TPageControl.Create(Self);
pc.Left := 0;
pc.Top := 0;
pc.Width := 100;
pc.Height := 100;
ts.InsertControl(PC);
ts.PageControl := pc1;
end;
end.
 
接受答案了.
 
后退
顶部