![]() |
|
|
#1
|
|||
|
|||
![]() Скажите пожалуйста, можно ли сделать так, что бы в Edit1 отображалось значение Combobox1 + текущее время?
|
#2
|
|||
|
|||
![]() Если надо однократно занести текст и время, то
Код:
procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := ComboBox1.Text + TimeToStr(Now); end; Если нужно, чтобы время постоянно обновлялось, то поставьте на форму TTimer с интервалом 1000 мс и вот с таким обработчиком события OnTimer: Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin Edit1.Text := ComboBox1.Text + TimeToStr(Now); end; |
#3
|
|||
|
|||
![]() Спасибо!
![]() |