Позиция курсора в строке Listbox'а

[kei91]

Доброго времени суток! Помогите, пожалуйста.
Имеется два листбокса, при нажатии на строку в 1-ом листбоксе во второй записывается символ, над которым расположен курсор. Вопрос в том как отследит номер символа в строке. Пробовала через TPoint, но он только отслеживает координаты самой формы, а необходимо листбокса, selstart, как я поняла у листбокса нет.

[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[i]) do begin
     tw:=Canvas.TextWidth(copy(Items[i],1,c));
    if tw>=x then begin
      form1.Caption:=Items[i][c]; break;
    end;
   end;
  end;
 end;
end;

Адаптируй под себя

[kei91]

Огромное спасибо! Вы меня очень выручили =)

[Stilet]

Всегда пожалуйста )