delphi之事件

delphi的事件如上图所示：

图中oncloseup代表的是日期选择下拉框关闭时触发的事件。

//事件定义
procedure Ondatechange(Sender: TObject);

//事件执行：

procedure TFrmSellReturnTicket.Ondatechange(Sender: TObject);
begin

if ((Sender as TComponent).Name = 'dtpstartdate') or ((Sender as TComponent).Name = 'dtpenddate') then
begin
dtpdatecheck.checked := True;
end
else if ((Sender as TComponent).Name = 'departstartdate') or ((Sender as TComponent).Name = 'departenddate') then
begin
departdatecheck.Checked := True;
end ;
if dtpdatecheck.checked then
begin
dtpStart.Text := FormatDateTime('yyyy-mm-dd',dtpstartdate.DateTime);
dtpEnd.Text := FormatDateTime('yyyy-mm-dd',dtpenddate.DateTime);
end
else
begin
dtpStart.Text := '';
dtpEnd.Text := '';
end;

if departdatecheck.checked then
begin
departStart.Text := FormatDateTime('yyyy-mm-dd',departstartdate.DateTime);
departEnd.Text := FormatDateTime('yyyy-mm-dd',departenddate.DateTime);
end
else
begin
departStart.Text := '';
departEnd.Text := '';
end;

end;

大家都知道TdateTimerPicker控件是无法显示空值的。

我写这段代码的目的是使TdateTimerPicker能显示空值。

实际是将Tedit覆盖到TdateTimerPicker上，通过监听TdateTimerPicker的改变来动态改变Tedit的值。

 

上图 10和11 是2个复选框。复选框的onclick事件也绑定了上面的ondatechange方法。点击复选框会显示（清除）日期。