Fonts-Delphi de Fontun Yüksekliği ve Genişliğini Öğrenmek

Bu örneğimizde Formun kullandığı Fontun ebatlarını bulacağız.
Formunuza 2 adet label,1 adet button,1 adet edit  koyun.Button un eventına şunları yazalım

 Label1.Caption:='Genişlik :  '+
    IntToStr(Form1.Canvas.TextWidth(Edit1.Text))+
    ' pixels';
  Label2.Caption:='Yükseklik :  '+
    IntToStr(Form1.Canvas.TextHeight(Edit1.Text))+
    ' pixels';

Bir sonraki yazımızda görüşmek üzere...