• Web sitemizin içeriğine ve tüm hizmetlerimize erişim sağlamak için Web sitemize kayıt olmalı ya da giriş yapmalısınız. Web sitemize üye olmak tamamen ücretsizdir.
  • Sohbetokey.com ile canlı okey oynamaya ne dersin? Hem sohbet et, hem mobil okey oyna!
  • Soru mu? Sorun mu? ''Bir Sorum Var?'' sistemimiz aktiftir. Paylaşın beraber çözüm üretelim.
Bu, hızlı yüklenen mobil optimize edilmiş bir AMP sayfadır, gerçek sayfayı yüklemek istiyorsanız bu metni tıklayın.

Delphi 'font seçimi ekrana çıkarmak

Üyelik Tarihi
7 Ocak 2015
Konular
4,091
Mesajlar
4,274
MFC Puanı
40
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