Пример нахождения символа под курсором в 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;

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

Похожие статьи

• Перетаскивание пунктов в ListBox
• Отрисовка текста на Canvas с перекрытием букв друг друга
• Как сделать на Delphi чтобы персонаж обходил препятствия
• Как сделать буквы на картинке жирными
• Выбор записей из ListBox в соответствии со значением ComboBox и размещение результата в Memo
• Как нарисовать две перпендикулярных линии(уголок)?
• Особенности виртуального ListBox при отображении больших объемов информации
• Графический ListBox
• Генерация слов из listbox
• При нажатии enter добавить значение из edit в listbox