Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
ВнизShellTreeView Найти похожие ветки
← →
0utsider (2003-05-23 11:39) [0]У меня есть три принципиальных вопроса :)
Для вывода директорий (аля проводник) я использую ShellTreeView.
1) Как мне передать туда относительный путь Т.е. если есть путь к чему-либо относительно папки, в которой расположена моя программа, как мне сделать так, чтобы в ShellTreeView открылась папка с этим чем-либо ... мда... вообще вы меня,наверно, поняли ...
2)Как сделать так, чтобы при изменении путя (или пути %) закрывалась текущая папка в ShellTreeView.
3) КАК мне зациклить MediaPlayer ??? У меня на этот счет были глобальные планы... типа расчитать время клипа, сделать задержку, потом снова play и все в таком же духе ... Вообще-то как-то последний кадр определяется, да ?
Заранее спасибо
← →
Dmitry_Bondarev (2003-05-28 14:45) [1]procedure TForm3.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if copy(ShellTreeView1.Path,length(ShellTreeView1.Path),1)<>"\" then
//DirOut - TEdit
DirOut.Text:=ShellTreeView1.Path+"\"
else
DirOut.Text:=ShellTreeView1.Path;
ShellTreeView1.Visible:=False;
end;
procedure TForm3.FormCreate(Sender: TObject);
var PathProgram:string;
begin
PathProgram:=GetCurrentDir;
ShellTreeView1.Path:=PathProgram;
end;
Это ответ на первый и второй вопрос!
← →
0utsider (2003-05-29 21:39) [2]Спасибо большое ! :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c