procedure TForm1.DateTimePicker1Change(Sender: TObject); begin if (Sender as TDateTimePicker).Name = 'Date1' then // 第一个
end;
if sender = datetimepicker1 then edit1.Text :=datetostr(datetimepicker1.date); if sender =datetimepicker2 then edit12.Text :=datetostr(datetimepicker2.date); if sender =DateTimePicker3 then Edit13.Text :=datetostr(DateTimePicker3.date);
begin
if (Sender as TDateTimePicker).Name = 'Date1' then // 第一个
end;
edit1.Text :=datetostr(datetimepicker1.date); if sender =datetimepicker2 then
edit12.Text :=datetostr(datetimepicker2.date); if sender =DateTimePicker3 then
Edit13.Text :=datetostr(DateTimePicker3.date);
重复的地方在Object Inspector/Events 中删除,重新建立就好了。
重复的地方在Object Inspector/Events 中删除,重新建立就好了。