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

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

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

31st
Окт

Пример нахождения символа под курсором в ListBox

Posted by Chas under Delphi, Пост-обзор

Имеется два листбокса, при нажатии на строку в 1-ом листбоксе во второй записывается символ, над которым расположен курсор. Вопрос в том как отследит номер символа в строке

Stilet

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);  var tw,c,i:integer;

begin

 with TListBox(Sender) do begin  Canvas.Font:=Font;

  i:=ItemAtPos(Point(x,y),true);

  if i<>-1 then begin

   for c:=1 to length(Items) do begin

     tw:=Canvas.TextWidth(copy(Items,1,c));

    if tw>=x then begin

      form1.Caption:=Items[c]; break;

    end;

   end;

  end;

 end;

end;