首页 > 代码库 > 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之事件
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。