"Font seçimi" penceresini ekrana çıkarmak

Bu dersimizde ekrana "Font seçimi" penceresini çağıracağız.

Merheba arkadaşlar, bu dersimizde ekrana "Font seçimi" penceresini çağıracağız. Öncelikle formumuza bir buton , RichEdit ve FontDialog koyuyoruz:

Components pallete(veya Tools pallete)->Standart->TButton
Components pallete(veya Tools pallete)->Win32->TRichEdit
Components pallete(veya Tools pallete)->Dialogs->TFontDialog
Sonra butona 2 kez tıklayıp şu kodu yazın:


if FontDialog1.Execute then
RichEdit1.Font := FontDialog1.Font;


Butona tıklandığında "Font seçimi" penceresi açılacak ve hangi font seçildiyse yazı kutusunun fontu o olacak. Kolay gelsin ;)
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git