Ekran Fontlarını Combobox'a ekle

Form Create edildiğinde;ComboBox kutusuna ekranın fontlarını ekleyen,ComboBox kutusunun tipini DropDownList yapan ve Label bileşeni içerisindeki metnin fontu ComboBox kutusunda seçili olmasını sağlayan procedure.

TForm1.ComboBox1Select(Sender: TObject); // combobox da seçim yapıldığında..

begin

  Label1.Font.Name := ComboBox1.Items.Strings[ComboBox1.ItemIndex]; // label ın fontunu combobox da ne seçildiyse onu yap..

end;

procedure TForm1.FormCreate(Sender: TObject);// form oluştuğunda

var

  I: Integer;

begin

   ComboBox1.Items.Clear; // içini temizle

  for I := 0 to Screen.Fonts.Count -1 do  // font sayısı kadar döndür..

  begin

 ComboBox1.Items.Add(Screen.Fonts.Strings[i]);  // combobox a ekle

  end;

  ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(Label1.Font.Name);  // combobox ın itemindexine label ın aktif fontunu ata

end;  end.