Código
////Receita simples só para vc pegar...
//na caixa do delphi abra Dialogs lá tem algumas pastinhas click na FontDialog1
//feito isso ponha ela no form1
///no form1 coloque um botton1 e um memo1
/click no button1 e coloque o codigo entre begin e end
procedure TForm1.Button1Click(Sender: TObject);
begin
FontDialog1.Font := memo1.font;
if FontDialog1.Execute then
memo1.Font := FontDialog1.Font;
end;
end.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009