1. Событие происходит при отрисовке элемента (On Draw Item - При Отрисовке Элемента) =) Для того, чтобы событие срабатывало, поставь у лист бокса св-во Style = lbOwnerDrawFixed, lbOwnerDrawVariable, или lbVirtualOwnerDraw. Событие OnDrawItem срабатывает только в OwnerDraw лист боксах. Кстати, это все написано в хэлпе, так что советую подучить английский, чтобы сэкономить себе в дальнейшем кучу времени.
2. Да, сорри, писал по памяти, забыл [] поставить. Короче вместо Font.Style := fsUnderline; пиши Font.Style := [fsUnderline];
Эта ошибка возникает, т.к. Font.Style - это множество типа TFontStyles, в ктором находятся элементы типа TFontStyle. А для работы с множествами принято использовать []. Например можно указать сразу несколько стилей Font.Style := [fsUnderline,fsItalic], а можно ни одного Font.Style := []; Так же можно использовать + и - при работе с множествами. Например, стили шрифта такие: [fsUnderline,fsItalic,fsBold], а мы хотим оставить только [fsUnderline,fsItalic]; В таком случае необходимо написать так: Font.Style := Font.Style - [fsBold]; Ну и т.д. Вобщем хэлп тебе в руки и вперед!
|