[Electronic_Arts]

Помогите с решить проблему с ListView-ом
Вопрос таков: как сделать что бы после поиска лист ListView покозал выбраную строчку.... а то оно находит виберает а прокрутить страничку до выбранной строчки не получается...помогите пожалуста решить проблему

Будет лучше если напишете исходник......
ЗАРАНЕЕ БЛАГОДАРЮ

[Keygenmusic]

исходник писать лень, но вот из винапи:
SetScrollPos(
HWND hWnd, // handle of window with scroll bar
int nBar, // scroll bar flag
int nPos, // new position of scroll box
BOOL bRedraw // redraw flag
);
если известно кол-во строк и номер этой строки, думаю проблем быть не должно, так же функция может понадобиться:
GetScrollRange(
HWND hWnd, // handle of window with scroll bar
int nBar, // scroll bar flags
LPINT lpMinPos, // address of variable that receives minimum position
LPINT lpMaxPos // address of variable that receives maximum position
);

[Electronic_Arts]

Дааа что то трудновато стало

Код:

for i:=0 to ListView1.Items.Count-1  do
begin
If pos(Edit1.text, ListView1.Items[i].Caption)>0 then
ListView1.Selected:=ListView1.Items[i];

нельзяли поточнее, и вопрос можно ли прокрутить до выбранного...?

[Keygenmusic]

если стиль Report то можно и так вроде
ListView1.Scroll(0, Num); //Num - номер выделенного эл-та

[Electronic_Arts]

Я сделал вот что но не помогает

Код:

for i:=0 to ListView1.Items.Count-1  do
begin
If pos(Edit1.text, ListView1.Items[i].Caption)>0 then
ListView1.Selected:=ListView1.Items[i];
ListView1.Scroll(0, i);

прокручивает до конца листа и все!

[Keygenmusic]

а так:

Код:

for i:=0 to ListView1.Items.Count-1  do
begin
If pos(Edit1.text, ListView1.Items[i].Caption)>0 then begin
ListView1.Selected:=ListView1.Items[i];
ListView1.Scroll(0, i);
end;