Иллюстрированный самоучитель по Kylix
Обработчик нового события procedure TForm1 HalfMinutelHalfMinute(Sender TObject;
Листинг 19.15.Обработчик нового события
procedure TForm1.HalfMinutelHalfMinute(Sender: TObject;
TheTime: TDateTime);
begin
Edit1.Text:=('Время '+TimeToStr(TheTime));
Edit1.Refresh; end;
В результате работы данной программы в компоненте Edit1 каждые 30 секунд будет выводиться текущее время.
Назад
Содержание
Вперед
