Home » Tipps & Tricks » Komponenten » TRichEdit/TMemo/TEdit » TFontDialog in Verbindung mit TRichEdit

TFontDialog in Verbindung mit TRichEdit

Auf der Komponentenseite ‚Dialoge‘ befindet sich die Komponente ‚TFontDialog‘. Sie kapselt den Standard-Fontdialog von Windows. Aufgerufen wird er über die Methode Execute.Folgende Routine zeigt, wie man einer TRichEdit-Komponente die neu ausgewählte Schrift zuweist:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if FontDialog1.Execute then
    RichEdit1.SelAttributes.Assign(FontDialog1.Font);
  RichEdit1.SetFocus;
end;

Anschließend wird der Fokus wieder auf das RichEdit-Feld gesetzt.Das OnApply-Ereignis wird ausgelöst, wenn der Anwender auf den ‚Übernehmen‘-Button des Dialoges klickt (Options muss dazu den Wert [fdApplyButton] enthalten). So können die Schrifteinstellungen übernommen werden, ohne das der Dialog geschlossen wird. Ein Beispiel findet sich dazu in der Onlinehilfe unter dem Stichwort ‚TFontDialog,OnApply‘.