Şu 2 soruyu yapabilecek var mı ?

[Yasemin]

(03-02-2022, Saat: 16:13)isicnb11 Adlı Kullanıcıdan Alıntı: Sınavımda bu sorulara benzer çıkacak ama nasıl yapacağımı anlamadım. Cevapları yok elimde.
Teşekkürler.

https://imgyukle.com/f/2022/02/03/ob5DF6.jpg

Merhaba,

3. sorunun cevabını örneğe bakarak şu şekilde yapabiliriz.

 uses

 System.UITypes,

  procedure TForm1.ListBox1Click(Sender: TObject);
begin
  case ListBox1.ItemIndex of
   0: Edit1.Font.Style:=[];
   1: Edit1.Font.Style:=[fsBold];
   2: Edit1.Font.Style:=[fsItalic];
   3: Edit1.Font.Style:=[fsBold, fsItalic];
  end;

end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
  case ListBox2.ItemIndex of
   0: Edit1.Font.Height:=8;
   1: Edit1.Font.Height:=10;
   2: Edit1.Font.Height:=12;
   3: Edit1.Font.Height:=14;
   4: Edit1.Font.Height:=16;
  end;

end;

procedure TForm1.ListBox3Click(Sender: TObject);
begin
  case ListBox3.ItemIndex of
   0: Edit1.Font.Name:='Tahoma';
   1: Edit1.Font.Name:='Sitka Text';
   2: Edit1.Font.Name:='Ariel';
  end;

end;

   

İyi çalışmalar.