Иллюстрированный самоучитель по 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 секунд будет выводиться текущее время.

Назад
Содержание
Вперед


Содержание Назад Вперед







Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий