Советы по Delphi
Изменение стиля шрифта
Попробуйте следующий код... это должно работать:
|
with cp do begin { устанавливаем различные атрибуты } Font.Style := Font.Style + [fsStrikeOut]; { для добавления стиля strike (зачеркивание) } Font.Style := Font.Style - [fsStrikeOut]; { для выключения эффекта зачеркивания } end; |
Замечание: данный метод будет работать также и для изменения атрибутов Bold, Italic и Underline. [001998]
