Código Delphi [-]procedure TForm1.TMSFMXDateTimeEdit1Change(Sender: TObject); begin TMSFMXDateTimeEdit2.DateTime := TMSFMXDateTimeEdit1.DateTime + 30; end;
procedure TForm1.TMSFMXDateTimeEdit1Change(Sender: TObject); begin TMSFMXDateTimeEdit2.DateTime := TMSFMXDateTimeEdit1.DateTime + 30; end;