Buscar

Muda a letra (fonte) em um memo

Código

////alterar a letra de um texto no memo...

////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.
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 03/01/04
Por: Antonov Carl
Visualizada: 5618 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009