[rgstuamigo]

Empezado por jandro

Hola a todos.

Me gustaría saber como hacer una lista desplegable donde se muestren todas las fuentes que tiene windows para poder aplicarlas a un tipo TLabel. Es esto posible??

Muchas gracias.

Saludos.

Pues para eso esta el componente TFontDialog ( pestaña Dialogs de la paleta de componente)
Lo puedes usar de esta manera:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if FontDialog1.Execute then //si ejecutando el dialogo ha selecionado una fuente
   Label1.Font:= FontDialog1.Font;//asigno la fuente selecionada a mi label 
end;

Saludos...