Для правки данного глюка необходимо изменить следующую процедуру в исходном коде данного компонента:

Code:

{©Drkb v.3}

procedure TCustomShellListView.DblClick;

begin

if FAutoNavigate and (Selected <> nil) then

   with Folders[Selected.Index] do

     if IsFolder then

       SetPathFromID(AbsoluteID)

     else

       ShellExecute(Handle, nil, PChar(PathName), nil,

         PChar(ExtractFilePath(PathName)), 0); 

inherited DblClick;

end;

 

на вот такую:

 

procedure TCustomShellListView.DblClick;

begin

if FAutoNavigate and (Selected <> nil) then

   with Folders[Selected.Index] do

     if IsFolder then

       SetPathFromID(AbsoluteID)

     else

       ShellExecute(Handle, 'open', PChar(PathName), nil,

         PChar(ExtractFilePath(PathName)), SW_SHOW);

inherited DblClick;

end;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить