Доброго времени суток!
Проблемма у меня такая: пытаюсь сделать нечто типа "SoftSelect", т.е. чтобы можно было выделять элементы списка таким сбособом какбудто я нажал клавишу Ctrl, т.е. чтобы выделить элемент на него надо нажать, чтобы снять выделение нажать еще раз, при этом остальные итемы отсаются или выделенными или нет, в зависимости от того были ли они до этого выделенны.
Вот как я пытался поступить, но почемуто нифига невышло:

Код

procedure TForm2.TVMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); var id: Integer; begin id := TV.ItemAtPos (Point (x,y), False); // получаем ID итема под курсором if id < TV.Items.Count    then TV.Selected[id] := Not TV.Selected[id]; // меняем свойство Selected на противоположное end;

Мне кажется что надо как-то "заблокировать" inherited события OnClick, OnDbClick, OnMouseDown, OnKeyDown и т.п. а вот как это сделать?

Думаю, что проблема в том, что после обработки твоего события происходит обычный onmousedown и выделяется один элемент (ctrl же не нажат)... чтобы этого не происходило я бы в еденичном случае сделал так: поставил компонент ApplicationEvents на форму и ловил тот же самый клик по компоненту, но после обработки убивал бы сообщение (обнулял параметр msg). Тогда ты обработаешь нажатие мыши, а до компонента ничего не дойдёт 8).

nJIaKca.spb Дак там уже все это реализовано

Код

TreeView1.MultiSelected := True; TreeView1.MultiSelectStyle := [msControlSelect];

Всем спасибо!
<Spawn> век живи - век учись

Ну я всеже рашил пойти чуть иначе (т.к. так удобней для конкретной цели) всвязи с тем что использую OwnerDraw то поступил так: у меня имелся массив с различными данными, создал в нем дополнительную переменную Selected, и при нажатии на итем менел ее значение, ну а в OwerDraw я просто игнорировал State и отрисовывал ее в зависимости от моего значения Selected.