首页 > 代码库 > delphi之事件

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方法。点击复选框会显示(清除)日期。

 

 

delphi之事件