三个问题一把问，谁能救我

Question

2.TDateTimePicker是ActiveX控件，你应该把它的Parent指定为nil
3.先建立一个TabSheet，然后把它的PageControl指定为对应的TPageControl控件。

Answer 1

1. FB: TBevel;没显示,好象根本没建立一样
只是一个边框
设置一下试样即可

Answer 2

InsideDelphi(ID):你好！
   按你的方法：2.TDateTimePicker是ActiveX控件，你应该把它的Parent指定为nil 不行，
能给一段代码吗？

Answer 3

2.TDateTimePicker是ActiveX控件，你应该把它的Parent指定为nil 
错误的var
 dtp :TDateTimePicker;dtp:=TDateTimePicker.Create(form1);
dtp.parent:=form1;
你再试试

Answer 4

newyj(老鬼)的办法更不行，这里需要的是组件开发，哪里有Form1啊？

Answer 5

Sorry,我没有仔细看，只是想当然，现在我分析一下吧

Answer 6

//to zhiping，一直很忙，现在才给你分析，sorry 
//是因为你的PageConrol遮住了DateTimePicker
//而且每一个控件都要指定Parent的值
unit SearchSet;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, StdCtrls, Db, DBTables, Dbctrls, Buttons, Menus, ExtCtrls,
  ComCtrls;
type
  TSearchSet = class(TPanel)
  private
    
    RJ:TDateTimePicker;
FB:TBevel;
PC:TPageControl;  
    { Private declarations }
  protected    { Protected declarations }
  public
  constructor Create(AOwner: TComponent);override;
    destructor Destroy;override;
    { Public declarations }
  published
    { Published declarations }
  end;procedure Register;implementation
constructor TSearchSet.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width:=400;
  Height:=328;
  Parent:=TWinControl(AOwner);
  //漏写了这一行，就没法正常运行。
  Font.Size:=9;
  Font.Name:='宋体';  FB:=TBevel.Create(Self);
  FB.Shape:=bsFrame;
  FB.Align:=alLeft;
  FB.Width:=203;
  FB.Height:=301;  PC:=TPageControl.Create(Self);
  PC.Parent:=self;
  PC.Align:=alClient;
  PC.Left:=382;
  PC.Top:=24;
  PC.Height:=20;
  PC.Width:=250;  RJ:=TDateTimePicker.Create(self);
  RJ.Parent:=Pc;
  RJ.Date:=Date();
  RJ.Left:=20;
  RJ.Top:=20;
  RJ.Visible:=true;
 RJ.Height:=20;
  RJ.Width:=250;
end;destructor TSearchSet.Destroy;
begin
  FB.Free;
  RJ.Free;
  PC.Free;  inherited Destroy;
end;procedure Register;
begin
  RegisterComponents('XXXX', [TSearchSet]);
end;
end.