Question

How can I show a hint that is specific to the item under the mouse as a user moves their mouse down a list of items in a TCheckListBox?

In Delphi 2010.

Tom

Answer 1

Create a TCheckListBox with four items called “alpha”, “beta”, “gamma”, and “delta” (for instance). Then do

const
  CheckListBoxHints: array[0..3] of string = ('first hint', 'second hint', 'third hint', 'fourth hint');

var
  prevIndex: integer = -1;

procedure TForm1.CheckListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  index: integer;
begin
  index := CheckListBox1.ItemAtPos(point(X, Y), true);
  if index <> -1 then
    CheckListBox1.Hint := CheckListBoxHints[index]
  else
    CheckListBox1.Hint := '';
  if index <> prevIndex then
    Application.CancelHint;
  prevIndex := index;
end;

end;