Для правки данного глюка необходимо изменить следующую процедуру в исходном коде данного компонента:
Code:
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 {SW_HIDE = 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;
Автор: Rouse_
Для исправления глюка при запуске приложений через ShellListView в исходном коде компонента необходимо изменить процедуру DblClick, добавив параметр 'open' для вызова ShellExecute и параметр SW_SHOW для отображения окна.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал