关于ListBox的提示

Question

ListBox每行的内容太长，但又不想显示水平滚动条，怎样可以做成以下这种效果：当鼠标停留在某项（没有点击）的时候就提示该项的内容？不是弹出对话框的那种提示，是hint

Answer 1

可以考虑用listview，它会提示

Answer 2

如果不想自行实现Hint，就用一个单列的ListView吧
设成report风格，不显示行分隔线，效果和ListBox基本一样

Answer 3

另外还可以通过在OnMouseMove中，通过ListBox1.ItemAtPos(Point(x,y),True);获得鼠标位置的索引，然后显示其信息

Answer 4

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  pt: TPoint;
  nIndex, nWidth: integer;
  str: String;
begin
  pt.X := X;
  pt.Y := Y;
  nIndex := ListBox1.ItemAtPos(pt, true);
  if nIndex > -1 then
  begin
    str := ListBox1.Items.Strings[nIndex];
    nWidth := ListBox1.Canvas.TextWidth(str);
    if nWidth >= ListBox1.Width - 2 then
    begin
      ListBox1.Hint := str;
      Application.ActivateHint(ClientToScreen(pt));
    end
    else
    begin
      Application.HideHint;
      ListBox1.Hint := '';
    end;
  end
  else
  begin
    ListBox1.Hint := '';
    Application.HideHint;
  end;
end;

Answer 5

记住要：ListBox1.ShowHint := true;

Answer 6

根據mouse的point去Canvas出hint...

Answer 7

如何变成单列的？我搜了半天也没搜到如何设置ListView为单列显示

Answer 8

Application.ActivateHint(ClientToScreen(pt));
去掉这句就更好，不然提示语句跑太远了

Answer 9

去掉 ClientToScreen，直接用pt就行了

Answer 10

取决于你的ListBox的父窗口是不是窗体。