Тема: ListBox
Показать сообщение отдельно
  #2  
Старый 02.08.2012, 21:16
Аватар для cotseec
cotseec cotseec вне форума
Активный
 
Регистрация: 16.07.2008
Сообщения: 353
Версия Delphi: D7,TDE06,RAD09
Репутация: 1443
По умолчанию

Цитата:
Как сделать, чтобы листбокс проматывался до последнего сообщения?
Код:
ListBox1.TopIndex:=ListBox1.Items.Count-1; 
либо Perform()
Цитата:
И еще, как рисовать разные элементы листбокса разным цветом?
Код:
property OnDrawItem: TDrawItemEvent;
TDrawItemEVent = procedure(ListBox: TListBox; Index: Integer;
Rect: TRect; 
State: TOwnerDrawState) of object;
(не забывать про стили IbOwnerDrawFixed или IbOwnerDrawVariable)
__________________
Понять, что хочет заказчик - бесценно, ведь он платит MasterCard
Ответить с цитированием