Butonlara Tıklayarak İstediğimizi Form Bileşenlerine Yazı Yazdırmak.

YoRuMSuZ

Biz işimize bakalım...
Katılım
7 Hzr 2006
Mesajlar
37,471
Beğeniler
8,992
Takım
GALATASARAY
#1
Yukarıda anlatıldığı gibi Delphi'yi başlatıyoruz.

Form üzerine sola 4 adet Buton yerleştiriyoruz. Sağ tarafa ise;
1 adet Label,
1 adet Edit,
1 adet Panel (boyutlarını köşelerinden tutarak ayarlıyoruz)
1 adet daha Buton ekliyoruz. (Hepsi Standart sekmesinde. Resimde Ok ile gösterilen bileşenler)

Hiçbirinin adını değiştirmiyoruz olduğu gibi kalıyor.



Şimdi soldaki Butonlara tıkladığımızda her butonun sağında bulunan bileşene istediğimiz yazıyı yazdıracağağız.

(Kod sekmesinden Form alanına dönmek için klavyeden F12 tuşlayabilirsiniz)

Aşağıda verilen kodları begin - end kod bloğu arasına yazıyoruz.

Button1'e çift tıklıyoruz Label1 de istediğimiz yazının çıkması için ve şu kodu yazıyoruz. (Burda bir de Label'deki yazıyı renklendirdik :))
Renk kullanımına dikkat ederseniz Delphi'de renklerin önüne cl getiriyoruz. clRed, clYellow, clGreen, ClBlue ...
Kod:
  Label1.Caption := 'CeReZFoRuM';
  Label1.Font.Color := clRed;
Button2'ye çift tıklıyoruz ve aşağıdaki kodu ekliyoruz.
Kod:
  Edit1.Text := 'CeReZFoRuM';
Button3'e çift tıklıyoruz ve aşağıdaki kodu ekliyoruz.
Kod:
  Panel1.Caption := 'CeReZFoRuM';
Button4'e çift tıklıyoruz ve aşağıdaki kodu ekliyoruz.
Kod:
  Button5.Caption := 'CeReZFoRuM';
Tabii siz ' ' (tek tırnak) arasında kalan yere istediğinizi yazabilirsiniz. Hatta diğer yazıları da renklendirebilirsiniz. Button1'in OnClick olayında renklendirme örneği var. Font görünümleri boyutu, türü vs ayarlanabilir.

Hatta yukardaki kodların tümünü sadece bir Butonun OnClick olayına da yazabilirsiniz.

Artık F9 (Run) tuşuna basarak exe'mizi derliyoruz. Eğer bir hata yapmadıysanız Çalışan bir exe haır olacaktır. Butonlara tek tek tıkladığınızda sağdaki bileşenlerde belirlediğiniz textler görünecektir.

İsterseniz sağ alt köşeye bir Buton daha ekleyerek bir önceki derste öğrendiğimiz Kapat komutunu OnClick olayına yazabilirsiniz.

 

Benzer konular

Top