Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal, estou iniciando agora no Delphi e estou com uma pequena duvida...
Eu estou aprendendo à adicionar estilos em textos digitados no memo:
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
memo1.Font.Style:=[fsbold];
end;
procedure TForm1.CheckBox2Click(Sender: TObject);memo1.Font.Style:=[fsitalic];
end;
procedure TForm1.CheckBox3Click(Sender: TObject);memo1.Font.Style:=[fsunderline];
end;
Gostaria de saber como reverter esses estilos, ou seja, remover o fsbold ou o fsunderline aplicado no texto da memo. Desde já, obrigado!
Carregando comentários...