DBGrid и открытие папки

[Stian]

Доброго времени суток)
Можно ли сделать так чтобы при выборе определенной строки в DBGrid открывалась определенная папка в проводнике? Допустим в DBGrid отображается список объектов, и при выборе определенного, нужно открыть папку, в которой лежат файлы, относящиеся к этому объекту. Вот как-то так.

[ArtGrek]

посмотрите в инспектор задач, все его события, если надо по очереди все перепробуите,
пока опытным путем не поимете что ето то что вам нужно
а вообше кажеца ето SellClick

[Stian]

Есть такое. Порывшись на просторах сети, нарыл такой код:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if Column.Field.FieldName='Путь к файлам' then
shellexecute(handle,'open','Путь',Pchar(Column.Field.AsString),nil,sw_show);
end;

Он открывает папку, только вот одна проблема. Он открывает одну и ту же папку (ту, что прописала в shellexecute), т.е. вся колонка "Путь к файлам", на какую строку не переместишься, открывает только этот путь. Как сделать так, чтобы при нажатии на определенную строку открывалась определенная папка?

[Stilet]

Могу посоветовать попробовать запоминать путь в глобальную переменную не в этом событии а в OnAfterScroll. А в OnCellClick просто вызывать shellexecute с запомненным путем, раз уж такое у тебя не работает.

P.S. Хотя ты однозначно где-то напорол, потому как твой пример у меня работает отлично.

[Stian]

твой пример у меня работает отлично.

У меня он тоже работает, только открывает всегда одну и ту же папку, которая прописана в shellexecute 'Путь'. Я видимо не до конца понимаю (прошу прощения, уровень знания delphi у меня невысокий, прямо скажем). Где именно в коде прописать, чтобы в зависимости от строки DBGrid открывался определенный путь, ведь в shellexecute путь указан конкретный и он всего один. Как прописать пути для каждой строки?

[lexaltd]

А если так :

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if DirectoryExists(Column.Field.AsString) then
shellexecute(handle,'open',Pchar(Column.Field.AsString),nil,nil,sw_show);
end;

Ошибся чуток - исправил

[asmodey1]

Чуток не так...

shellexecute(handle,'open',PAnsiChar(Column.Field.AsString),nil,nil,sw_show);

[Stian]

Всем огромное спасибо за помощь, все работает. То, что нужно.