TFontStyle型への値の代入方法は?

解決

ポント 2003-09-17 20:55:53 No: 4874

とてもお世話になっています。

TFont型の中に、StyleプロパティがTFontStyle型としてありますが、このTFontStyle型に、fsBold, fsItalic, fsUnderline, fsStrikeOutの値を任意に代入したい場合は、どのようなプログラムをかけばよいのですか?

基本的なことで申し訳ないのですが、ご教授、よろしくお願いします。

HOota 2003-09-17 21:02:34 No: 4875

Font.Style := [fsBold, fsItalic, fsUnderline, fsStrikeOut]

LupinⅢ URL 2003-09-17 21:13:11 No: 4876

補足ですが、
TFontStyle型は集合型です。
集合型の基本は Property:=[]; <- このような指定になります

ポント 2003-09-18 02:16:46 No: 4877

ああ、本当ですね。[]をつけて、代入できました。
こんな初歩的なことにお返事いただけて、ありがたく思っています。

レスうけまして、色々とやってみると、

Font.Style := Font.Style + [fsBold];
Font.Style := Font.Style - [fsBold];

こんなことまで出来てしまうのですね。まさか、引き算で[fsBold]を抜けさせることができるなんて、Delphiはすごいですね。