对话框控件的制作
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.
代码比较简单就不多解释了。
思考题：
1、做一个模仿TcolorDialog的对话框控件。