На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
в этом уроке я покажу простой пример использования StatusBar Создадим новый проект, на форму кинем StatusBar с вкладки Win32 и таймер с вкладки Sistem далее кликнем два раза по компоненту StatusBar и создадим две разделительные вкладки (там интуитивно понятно)
Далее два раза кликнем по значку Тimer и введем код:
Код
procedure TForm1.Timer1Timer(Sender: TObject);
begin with StatusBar1 do begin Panels[0].Text := 'Дата: ' + DateToStr(Now); Panels[1].Text := 'Время: ' + TimeToStr(Now); end; end;
Размеры можно увеличить, в свойстве Width(50 по умолчанию)
|