Карта сайтаСсылкиКонтакты

Как сделать подчеркивание на заголовке ListView

PDF Печать
Статьи

В секции uses подключите модуль CommCtrl. Затем запишите следующий код в событие MouseMove Вашего ListView:


procedure TfrmMain.lvwMainMouseMove(Sender: TObject;
  Shift: TShiftState; X,
  Y: Integer);
const
  LVS_EX_UNDERLINEHOT     = $00000800;
var
  AItem : TListItem;
  Styles : DWord;
begin
  AItem := lvwMain.GetItemAt(X, Y);
  if not Assigned(AItem) then
  begin
    lvwMain.Cursor := crArrow;
  end
  else
  begin
    lvwMain.Cursor := crHandPoint;
    Styles := Trunc(Styles + LVS_EX_UNDERLINEHOT - LVS_EX_CHECKBOXES - 
                    LVS_EX_FULLROWSELECT);
    ListView_SetExtendedListViewStyle(lvwMain.Handle, Styles);
  end;
end;

 

Добавить комментарий


Защитный код
Обновить