TFontDialog in Verbindung mit TRichEdit |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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'.