Advertisement
Guest User

Untitled

a guest
Jan 18th, 2017
105
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.12 KB | None | 0 0
  1. ComboBox1.Items := Screen.Fonts;
  2. ComboBox1.ItemIndex := 0;
  3.  
  4. Memo1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex];
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement