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

解決

ポント  2003-09-17 20:55:53  No: 4874  IP: [192.*.*.*]

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

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

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

編集    削除
HOota  2003-09-17 21:02:34  No: 4875  IP: [192.*.*.*]

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

編集    削除
LupinⅢ  URL  2003-09-17 21:13:11  No: 4876  IP: [192.*.*.*]

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

編集    削除
ポント  2003-09-18 02:16:46  No: 4877  IP: [192.*.*.*]

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

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

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

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

編集    削除