Formatar texto selecionado em um trichedit usando tfontdialog
Após ter adiconado o TRichEdit e o FontDialog ao form faça:
Selecione o texto que deseja formatar;
no evento do componente que chama o TFontDialod - onclick de um botaõ p.ex. - adicione o seguinte código:
if FontDialog1.Execute then begin with TRichEdit1 do begin
SelAttributes.Size:= FontDialog1.Font.Size;
SelAttributes.Style:= FontDialog1.Font.Style;
SelAttributes.Color:=FontDialog1.Font.Color;
SelAttributes.Name:=FontDialog1.Font.Name;
Application.Processmessages; end;
Pronto, o texto selecionado receberá a formatação desejada.
