Компонент Timer

[Examp1e]

Можете подсказать, размер шрифта компонента Timer на форме

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 StatusBar1.Panels[1].Text:=TimeToStr(Time)
end;

[Al_Tim]

Причем здесь Timer??? StatusBar!

[Examp1e]

Можно увеличить размер шрифта, которым выводится время на панели?

[SPAnt]

Цитата: Сообщение от Examp1e Можно увеличить размер шрифта, которым выводится время на панели?

Да, можно, но придется использовать Canvas.

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
 if Panel = StatusBar.Panels[0] {Номер панели, в котором находится редактируемый текст} then
   begin
     StatusBar.Canvas.Font.Size  := 12;
     StatusBar.Canvas.TextOut(Rect.Left, Rect.Top, 'Это Ваш текст');
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Self.StatusBar1.Panels.Add;
  Form1.StatusBar1.Panels[0].Style := psOwnerDraw;
end;

Лично я думаю, что Вам будет достаточно сделать шрифт, в Вашем поле, жирным!!!

StatusBar.Canvas.Font.Style := [fsBold];

Иначе, форматирование другой информации на панели статуса будет смотреться, как минимум странно.

[Examp1e]

SPAnt, Спасибо

[Akrisv]

StatusBar.Font.Size := 20;
Canvas не нужен.

[BookkeeperW]

Examp1e, Да можно.
StatusBar1.Panels[1].Font.Size:=20;
Вроде так!