Как узнать, что в TTimeEdit поменялось время?

[paha3250]

Подскажите, как сделать так, чтоб в button1.text отображалось время после выбора в timeedit. Прописал timeedit1.OpenPicker, чтоб выбрать время, а как сделать, чтоб после выбора на кнопке оно отображалось, не пойму.

А точнее, вопрос поставлю так: Какое действие происходит с ttimeedit, при нажатии на кнопку "Установить" ?(Какое свойство меняется?)

[VladimirS]

может ты про событие хотел спросить?

http://docwiki.embarcadero.com/Libraries/XE5/en/FMX.DateTimeCtrls.TCustomTimeEdit.OnTimeChanged

[paha3250]

Я хочу, чтоб кнопке присваивалось значение времени ttimeedit, после того как я его установлю. Как не пробовал - не получается. Значение присвоелось, но до выбора времени. Вот и спрашиваю ,какое свойство отвечает за нажатие на  "Установить" в timeedit?

[VladimirS]

покажи как ты пытался.

код давай.

[paha3250]

procedure TForm4.Button1Click(Sender: TObject);

begin

timeedit1.OpenPicker;

if timeedit1.[Тут не знаю какое  свойство выбрать]then

button1.Text:=timetostr(timeedit1.Time);

end;

[VladimirS]

timeedit1.OpenPicker; - только открывает, но не дожидается действий пользователя.

Тебе надо ждать, пока пользователь выберет значение.

 

или может тебе надо узнать, что значение изменилось?

В чём необходимость знать, что значение установлено именно при помощи OpenPicker?

 

А если пользователь закроет Picker, ничего не выбирая, и введет руками - этот факт тебе будет нужно знать?

[paha3250]

timeedit1.OpenPicker; - только открывает, но не дожидается действий пользователя.

Тебе надо ждать, пока пользователь выберет значение.

Вот именно мне нужно тесту кнопки присвоить значение уже выбранного timeedit. 

[Andrey Efimov]

Не знаю, что вам необходимо, но схема "Нажал на кнопку, открылся выбор даты и времени, выбрал. После этого выбранная дата и время отобразились на кнопке" работает отлично.

Вот простой пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TimeEdit1.OpenPicker;
end;

procedure TForm1.TimeEdit1Change(Sender: TObject);
begin
  Button1.Text := DateToStr(TimeEdit1.Date);
end;

Есть ещё события: OnOpenPicker, OnClosePicker ...

[paha3250]

Вот такого ответа я ждал Спасибо большое!!!