Изменение события Tlistbox

[fewcher]

Имеется компонент Listbox. Требуется выделения элемента ТОЛЬКО при двойном щелчке мыши и отмена выделения при одном . При одном щелчке сделал. Помогите с двойным.Заранее благодарен.

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if  ListBox1.Selected[ListBox1.ItemIndex] then
ListBox1.ItemIndex := -1
end;

[asmodey1]

http://delphi.about.com/od/vclusing/a/lv_item_click.htm

[fewcher]

Спасибо, но проблему решил другим способом.

[fewcher]

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Pt : TPoint;
i : integer;
begin
Pt.x := x;
Pt.y := y;
if listbox1.ItemAtPos(Pt, true) = -1 then
for i := 0 to listbox1.Items.count - 1 do
ListBox1.selected[i] := false;
end;

Щелкнув на пустом месте в listbox'е снимется выделение.