Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

23rd
Янв

Свойства hint для каждой записи

Posted by micher under Delphi

Есть CheckListBox1, в который заносится разное количество items. Как сотворить следующее: при наведении на конкретный item, появлялся hint с содержанием названия данного item.

Аватар

как-то так:



procedure TForm1.CheckListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

var xPoint: TPoint;

    xIndex: Integer;

begin

  xPoint.X:=X;

  xPoint.Y:=Y;

  xIndex:=CheckListBox1.ItemAtPos(xPoint,True);

  if xIndex-1 then begin

    CheckListBox1.Hint:=CheckListBox1.Items[xIndex];

    Application.ActivateHint(xPoint);

  end

  else Application.CancelHint;

end;

тема на форуме