ListView запретить изминение Caption

[nibufep]

Как в ListView запретить изменение Caption? Т.е. когда кликнишь дважды по Caption его можно изменить, как запретить это?

[Stilet]

Пробовал поставить свойство ReadOnly?

[nibufep]

Сообщение от Stilet

Пробовал поставить свойство ReadOnly?

Раньше у меня это свойство с listviev почему-то не работало, сейчас решил еще раз попробовать, и о чудо)
А еще тогда 1 вопрос по listviev.

Как можно сделать поиск по listviev.caption, искать нужно вот так:

Например имеется caption: programmersforum, я начинаю вводить в edit prog и он ищет по всем caption такое вхождение и скролит listviev к этой строке. Как такое можно сделать?

[Stilet]

Как можно сделать поиск по listviev.caption

В цикле конечно )

[nibufep]

Сообщение от Stilet

В цикле конечно )

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

[Аватар]

А как себе представляешь по другому?

[nibufep]

procedure TForm.Edit1Change(Sender: TObject);
var
rct:TRECT;
i:integer;
const LVM_GETITEMRECT=4110;  LVIR_BOUNDS=0;
begin
for i:=0 to ListView1.Items.Count-1  do
begin
If pos(Edit1.text, ListView1.Items[i].Caption)>0 then begin
rct.Left:=0;
SendMessage(ListView1.Handle,LVM_GETITEMRECT,0,integer(@rct));
ListView1.Scroll(0,(i-ListView1.TopItem.Index)*(rct.Bottom-rct.Top));
break;
end;
end;
end;

Сделал вот так. Правильно или можно как то лучше сделать?

[Аватар]

Ну если хочешь еще регистронезависимый поиск, вместо pos что-то наподобие AnsiSameText

[Stilet]

Запусти - что получится?

[Dmitry33RU]

Сообщение от Аватар

Ну если хочешь еще регистронезависимый поиск, вместо pos что-то наподобие AnsiSameText

Функция AnsiSameText возвращает True, если строки S1 и S2 идентичны.

В таком случае поиск по вхождениям работать не будет. Лучше уж преобразовывать обе строки в 1 регистр и потом уже сверять.

pos(AnsiLowerCase(Edit1.text), AnsiLowerCase(ListView1.Items[i].Caption))>0