ListView подсказки

[nibufep]

Добрый день!

в ListView есть 3 столбика в 1 дата в 2 и 3 имя и фамилия, как мне при наведение на 2 или 3 столбик получить данные по ней из БД и вывести в качестве подсказки ? (как получить данные из БД я знаю, а вот как получить содержимое столбика на который навёл нет...)

[TaLadno]

TListView.OnInfoTip?
Тута подробнее - http://docs.embarcadero.com/products...OnInfoTip.html

[nibufep]

это я знаю, но там подсказка всплывает только при наведение на Caption

[nibufep]

procedure TForm1.ListView3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  pt: TPoint;
  li: TLIstItem;
  lvHitInfo: TLVHitTestInfo;
  hint: string;
begin
  pt := ListView3.ScreenToClient(Mouse.CursorPos);
  li := ListView3.GetItemAt(pt.x, pt.y);
  if li = nil then
  begin
    FillChar(lvHitInfo, SizeOf(lvHitInfo), 0);
    lvHitInfo.pt := pt;
    if -1 <> ListView3.Perform(LVM_SUBITEMHITTEST, 0, LParam(@lvHitInfo)) then
    begin
      if (lvHitInfo.iSubItem = 2) or (lvHitInfo.iSubItem = 3) then
        hint := ListView3.Items[lvHitInfo.iItem].SubItems[-1 + lvHitInfo.iSubItem];
      ListView3.Hint := hint;
      Application.ActivateHint(Mouse.CursorPos);
    end;
  end;
end;

вроде бы сделал, правильное ли это решение?

[TaLadno]

Если делает то, что тебе нужно и не глючит, то ты "сделал" правильно.
http://delphiru.ru/komponent/21--listview

главное помни 90% кода в интернете - говно

[nibufep]

var
  pt: TPoint;
  li: TLIstItem;
  lvHitInfo: TLVHitTestInfo;
  hint: string;
begin
  pt := ListView3.ScreenToClient(Mouse.CursorPos);
  li := ListView3.GetItemAt(pt.x, pt.y);
  if li = nil then
  begin
    FillChar(lvHitInfo, SizeOf(lvHitInfo), 0);
    lvHitInfo.pt := pt;
    if -1 <> ListView3.Perform(LVM_SUBITEMHITTEST, 0, LParam(@lvHitInfo)) then
    begin
      if (lvHitInfo.iSubItem = 2) or (lvHitInfo.iSubItem = 3) then
        hint := ListView3.Items[lvHitInfo.iItem].SubItems[-1 + lvHitInfo.iSubItem];
      Form1.Memo1.Lines.Add(hint);
      ListView3.Hint := hint;
      Application.ActivateHint(Mouse.CursorPos);
    end;
  end;
end;

а как выполнять код: Form1.Memo1.Lines.Add(hint); только когда первый раз наводишь на столбик, а если просто передвигаешь по нему мышкой то ничего не делать?