delphi之事件

//事件定义
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;