This example includes a RichEdit box and a speed button to activate the font dialog box (the glyph for the speed button is the Font icon from Program Files\Common\Borland Shared\Images\Buttons).
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if FontDialog1.execute then
RichEdit1.Font.name:=FontDialog1.Font.Name;
RichEdit1.Font.Size:=FontDialog1.Font.Size;
RichEdit1.Font.Style:=FontDialog1.Font.Style;
RichEdit1.Font.Color:=FontDialog1.Font.Color;
end;
This code sets the font in the RichText control to the specified settings, chosen from the Font dialog box.