Scrolling to a given position in a TListview
Hi,
It's infuriating... I would have thought there was an easy way to select an
item in a list view (using report mode) , set focus and then have that
selected item show in the box, if it is not currently visible then it should
come into view.
Below is the only way I have discovered to do this.
Does anyone have an elegant solution?
with ListView do
begin
Selected := fli; //this is found elsewhere
idx := StrToInt(Selected.Caption) - 2;
SendMessage(Handle,WM_KEYDOWN,VK_HOME,0);
//simulate the HOME key being pressed on the listview
while idx > 0 do
begin
SendMessage(Handle,WM_KEYDOWN,VK_DOWN,0);
//simulate the DOWN key being pressed on the listview
dec(idx);
end;
end;
Pages.ActivePage := InputPage;
ListView.SetFocus;
Jim
