Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.28;
Скачать: CL | DM;

Вниз

TShellListView   Найти похожие ветки 

 
_GOG_ ©   (2003-03-07 06:36) [0]

Мастера помогите новечку.
Как програмно получить полное имя файла или папки (например записать в Label) с помощью компанента TShellListView?


 
IceMan_T   (2003-03-09 12:09) [1]

ShellListView.OnClick:
if ShellListView.SelectedFolder.IsFolder=true then
Label1.Caption := "Folder : "+
ShellListView.SelectedFolder.PathName else
Label1.Caption := "File : "+
ShellListView.SelectedFolder.PathName;


 
Mr.Ice ©   (2003-03-10 02:44) [2]

Можно с помощью application.ExeName;

например label1.caption:=application.ExeName;


 
Mr.Ice ©   (2003-03-10 02:47) [3]

а для папки отреж от application.ExeName количество символов в названии проги

var
a:string;
begin
a:=application.ExeName;
SetLength(a,Length(a)-x); //х это количество отрезаемых символов
например для proga.exe

var
a:string;
begin
a:=application.ExeName;
SetLength(a,Length(a)-9);
label1.caption:=a;


 
Чих-пых ©   (2003-03-10 11:26) [4]

2 Mr. Ice:
Во-первых, речь не о файле программы, а о файлах в TShellListView.
А во-вторых, есть такая функция очень интересная - называется ExtractFilePath :)



Страницы: 1 вся ветка

Текущий архив: 2003.04.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
3-91211
supersan
2003-04-09 08:37
2003.04.28
Правильное соединение с БД Interbase?


14-91455
Valentino
2003-04-11 09:26
2003.04.28
Очень срочно!!! Посоветуйте компоненты для работы со скинами.


1-91243
62mkv
2003-04-10 09:15
2003.04.28
Поделитесь опытом создания компонента (TCustomDbGrid)


7-91575
_GOG_
2003-03-07 06:36
2003.04.28
TShellListView


3-91191
Ш-К
2003-04-10 07:23
2003.04.28
Убить поле