[CheshireCat]

Hello John,

the following code should work for you:

Code:

uses
DateUtils;

var
MyAlphaDateTime : TDateTime;

procedure TForm1.FormCreate(Sender: TObject);
begin
//initialize…

sDateEdit1.Date := Now;
sTimePicker1.Time := Time;

MyAlphaDateTime := sDateEdit1.Date + sTimePicker1.Time;
Label2.Caption := DateTimeToStr(MyAlphaDateTime);

end;

procedure TForm1.sDateEdit1Change(Sender: TObject);
begin
MyAlphaDateTime := sDateEdit1.Date + sTimePicker1.Time;
Label2.Caption := DateTimeToStr(MyAlphaDateTime);
end;

procedure TForm1.sTimePicker1Change(Sender: TObject);
begin
MyAlphaDateTime := sDateEdit1.Date + sTimePicker1.Time;
Label2.Caption := DateTimeToStr(MyAlphaDateTime);
end;

[JohnG]

Quote:

the following code should work for you:

So that's how you do it. Thanks!

[Author]

Posts