Hallo,
das geht beispielsweise so:
fsBold1 := fsBold in FontDialog1.Font.Style; // falls fsBold1 ein Boolean ist
Analog geht es mit den anderen Styles. Im folgenden Beispiel als if-Anweisung:
Delphi-Quellcode:
if fsBold in FontDialog1.Font.Style then
ShowMessage('bold');
if fsItalic in FontDialog1.Font.Style then
ShowMessage('italic');
if fsUnderline in FontDialog1.Font.Style then
ShowMessage('underline');
if fsStrikeOut in FontDialog1.Font.Style then
ShowMessage('strike out');
Grüße, Matze