Delphi控件开发浅入深出（七）

Delphi中有很多对话框组件，例如TopenDialog、TfontDialog等。这些控件的特点就是虽然是不可视控件，但是在运行时都有一个可视化的效果，比如TopenDialog的可视化效果就是一个打开对话框。我们这次将开发一个日期对话框控件，当我们调用控件的Execute方法（不一定非要使用Execute方法，不过大部分对话框控件都是使用这个方法，我们也就按照惯例来了）时，就会弹出一个可以选择日期的对话框，我们选择一个日期后，点击“确定”则Execute返回True,点击“取消”则Execute返回False。我们可以读取Date属性来得到用户选择的日期，也可以修改此属性来改变对话框的初始日期。

1、新建一个对话框。在对话框窗体上放置一个TmonthCalendar组件，命名为Cal,窗体名称改为FormDate。在窗体上放置两个按钮，一个按钮的Caption为“确定(&O)”，ModalResult为mrOk，一个按钮的Caption为“取消(&C)”，ModalResult为mrCancel。设计好的窗体如下图所示：

2、为窗体添加两个Public访问级的方法：

function GetSelDate: TDate;

procedure SetInitDate(AValue: TDate);

代码如下：

function TFormDate.GetSelDate: TDate;

begin

result := cal.Date;

end;

procedure TFormDate.SetInitDate(AValue: TDate);

begin

cal.Date := AValue;

end;

3、新建一个控件，派生自Tcomponent。

代码如下：

unit DateDialog;

interface

uses

SysUtils, Classes, Controls, frmDlg;

type

TDateDialog = class(TComponent)

private

FDlg: TFormDate;

function GetDate: TDate;

procedure SetDate(AValue: TDate);

protected

public

constructor Create(AOwner: TComponent);override;

function Execute: Boolean;

published

property Date: TDate read GetDate write SetDate;

end;

procedure Register;

implementation

procedure Register;

begin

RegisterComponents(‘Linco’, [TDateDialog]);

end;

constructor TDateDialog.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

FDlg := TFormDate.Create(self);

end;

function TDateDialog.Execute: Boolean;

begin

result := (FDlg.ShowModal = mrOK);

end;

function TDateDialog.GetDate: TDate;

begin

result := FDlg.GetSelDate;

end;

procedure TDateDialog.SetDate(AValue: TDate);

begin

FDlg.SetInitDate(AValue);

end;

end.

代码比较简单就不多解释了。