if Form1.Font.Style = [fsBold] then ShowMessage('BOLD') else
if Form1.Font.Style = [fsItalic] then ShowMessage('ITALIC') else
if Form1.Font.Style = [fsUnderline] then ShowMessage('UNDERLINE') else
if Form1.Font.Style = [fsStrikeOut] then ShowMessage('STRIKEOUT');
가장 간단한 방법으로는
if Form1.Font.Style = [fsBold] then ShowMessage('BOLD') else
if Form1.Font.Style = [fsItalic] then ShowMessage('ITALIC') else
if Form1.Font.Style = [fsUnderline] then ShowMessage('UNDERLINE') else
if Form1.Font.Style = [fsStrikeOut] then ShowMessage('STRIKEOUT');
뭐 이런식이 되겠군요...
이걸 조합해서 사용해도 될것 같은데...
넘 허접스런 답변이었나요?