오늘 후배가 물어봤다.
리스트뷰에서 Items중 하나를 선택 했는데, 도대체 스크롤이 안됩니다. 어찌해야 하나여?
흠… 잘.. 이라고 말해줬다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
procedure TForm2.Button2Click(Sender: TObject); var vPoint: TPoint; begin ListView1.ItemIndex := StrToInt(Edit1.text); vPoint := ListView1.Items[StrToInt(Edit1.text)].GetPosition; ListView1.Scroll(vPoint.X, vPoint.Y - ListView1.Height div 2); ListView1.SetFocus; end; procedure TForm2.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin If ListView1.GetItemAt(X, Y) <> nil then caption := ListView1.GetItemAt(X, Y).caption; end; |
최신 댓글