如何在DELPHI6中添加组件？是不是很弱呢？和和，没有办法，我刚学吗？

Question

如何在DELPHI6中添加组件，并且这些组件的扩展名是什么？我需要一个这样的组件，
TDBDateTimePicker,这个组件是一个日历，如何找到它，并且找到后它是什么样的，我如何在我的程序中引用它呢？
  50分，帮了一下了。谢谢！

Answer 1

在控件工具栏中双击你要的控件就自动加到from上了,
TDBDateTimePicker这是一个第三方控件，delphi中只带了一个TDateTimePicker控件

Answer 2

楼上的答非所问，从component-install component-从unit file name 里找到所要得组建的文件，很简单，多试几次就会了，第三方控件有时要丛install package中加

Answer 3

打开Delphi6，在组件栏双击或是单击，再在Form里选择你想放置的位置就行
了。这些组件是没有扩展名的。

Answer 4

下面是你要的控件的源代码 .pas
从component-install component-安装一下 到你datacontrol  面板中就可找到unit DBDateTimePicker;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, DB, DBCtrls;type
  TDBDateTimePicker = class(TDateTimePicker)
  private
    { Private declarations }
    FAllowChange: Boolean;
    FDataLink: TFieldDataLink;
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(Value: TDataSource);
    procedure DataChange(Sender: TObject);
    procedure Change(Sender: TObject);
    procedure CMExit(var Message: TWMNoParams); message CM_EXIT;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(Aowner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
  end;procedure Register;implementationconstructor TDBDateTimePicker.Create(AOwner: TComponent);
begin
   inherited Create(AOwner);
   FDataLink:=TFieldDataLink.Create;
   FDataLink.OnDataChange:=DataChange;
   OnChange:=Change;
   FAllowChange:=True;
end;destructor TDBDateTimePicker.Destroy;
begin
   FDataLink.OnDataChange:=nil;
   FDataLink.Free;
   inherited Destroy;
end;procedure TDBDateTimePicker.DataChange(Sender: TObject);
begin
   if FDataLink.Field=nil then Self.Date:=0
   else
      if FAllowChange then Self.Date:=FDataLink.Field.AsDateTime;
end;procedure TDBDateTimePicker.Change(Sender: TObject);
begin
   with FDataLink do begin
      FAllowChange:=False;
      if not editing then Edit;
   end;
   FDatalink.Field.AsDateTime:=self.Date;
   FAllowChange:=True;
end;procedure TDBDateTimePicker.CMExit(var Message: TWMNoParams);
begin
   try
      FDataLink.UpdateRecord;
   except
      on Exception do SetFocus;
   end;
   inherited;
end;function TDBDateTimePicker.GetDataField: string;
begin
   Result:=FDataLink.FieldName;
end;function TDBDateTimePicker.GetDataSource: TDataSource;
begin
   Result:=FDataLink.DataSource;
end;procedure TDBDateTimePicker.SetDataField(const Value: string);
begin
   FDataLink.FieldName:=Value;
end;procedure TDBDateTimePicker.SetDataSource(Value: TDataSource);
begin
   FDataLink.DataSource:=Value;
end;procedure Register;
begin
  RegisterComponents('Data Controls', [TDBDateTimePicker]);
end;end.

Answer 5

谢谢： jiangtaotao(土拨鼠(1.00)) ,： liyanbing1980(liyanbing
  我明白了，结贴