Hint über SubItem einer ListView

[Reinhardtinho]

Nein, ich habe keine Funktion mit dem Namen Point definiert.

Und das Problem, dass ich im ersten Post geschildert habe, ist jetzt auch erledigt.

Für alle die an einem alternativen Code interessiert sind, hier:

Delphi-Quellcode:

function TForm_Main.GetCol(X : Integer) : Integer;
var
 Left, Col: integer;
begin
  Left := 0;
  for Col := 0 to JvListView1.Columns.Count- 1 do
  begin
   if (Left <= X) and (X < (Left + JvListView1.Columns.Items[Col].Width)) then
   Break;

   Inc(Left, JvListView1.Columns.Items[Col].Width);
  end; (* of for *)

  Result := Col;
end; (* of GetCol *)

procedure TForm1.JvListView1MouseMove(Sender : TObject; Shift : TShiftState; X, Y : Integer);
const
  LastItem     : TListItem = nil;
  LastColIndex : Integer   = -1;
var
  ListView     : TJvListView;
  CurrItem     : TListItem;
  CurrColIndex : Integer;
begin
  ListView     := Sender as TJvListView;
  CurrItem     := ListView.GetItemAt(X, Y);

  CurrColIndex := GetCol(X);

  if (CurrItem <> LastItem) or (CurrColIndex <> LastColIndex) then
  begin
    ListView.Hint := '';

    if Assigned(CurrItem) then
      ListView.Hint := 'Hint';

    LastItem     := CurrItem;
    LastColIndex := CurrColIndex;

    Application.ProcessMessages;
  end; (* of if *)
end;

procedure TForm1.DoShowHint(var HintStr : String; var CanShow: Boolean; var HintInfo : THintInfo);
begin
  if ((HintInfo.HintControl = JvListView1) and (HintInfo.HintStr <> '')) then
  with HintInfo do
  begin
    HintColor     := RGB(159, 207, 255);
    ReshowTimeout := 500;
  end; (* of with *)
end;

Und im FormCreate wird es so zugewiesen:

Delphi-Quellcode:

Application.OnShowHint  := DoShowHint;
JvListView1.OnMouseMove := JvListView1MouseMove;

MFG
Lorenz


[Edit]Funktion vergessen[/Edit]