Как перетащить и бросить в TreeView

← →
DDR (2008-03-31 21:56) [0]

Здравствуйте!

Подскажите пожалуйста как перетащить и бросить в TreeView файлы и(или) папки, например, с рабочего стола? Что-то не получается.

← →
Сергей М. © (2008-03-31 22:07) [1]

Показывай как пытался

← →
Ega23 © (2008-03-31 22:08) [2]

http://www.delphimaster.ru/articles/dragndrop/index.html

← →
DDR (2008-03-31 22:11) [3]

Прошу Вас строго не судить, данный код в рамках эксперимента, потому и криво и неточности.....

var i, amount, size: integer; Filename: PChar; n: TTreeNode; s: string; begin inherited; Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255); for i := 0 to (Amount - 1) do begin size := DragQueryFile(Msg.WParam, i , nil, 0) + 1; Filename:= StrAlloc(size); DragQueryFile(Msg.WParam,i , Filename, size); form1.Tree.Items.Add(nil,filename); if DirectoryExists(StrPas(Filename)) then begin Caption := (StrPas(Filename)+""); ImageIndex := 0; end else begin Caption := (StrPas(Filename)); ImageIndex := 1; end; StrDispose(Filename); DragFinish(Msg.WParam); end;

← →
Сергей М. © (2008-03-31 22:24) [4]

И что собственно не получается ?

← →
DDR (2008-03-31 22:25) [5]

Ребята, подскажите плиз, что я не так делаю. Согласно использования кода по ссылке http://www.delphimaster.ru/articles/dragndrop/index.html

← →
DDR (2008-03-31 22:26) [6]

Не получается, расскрывать узлы.
Например, бросил папку "Новая папка", которая содержит файлы и в treeview1 раскрывалась структура этого каталога.

← →
Сергей М. © (2008-03-31 22:29) [7]

Приведенный код фигурирует в теле какого метода какого объекта ?

← →
DDR (2008-03-31 22:32) [8]

procedure TForm1.WMDROPFILES (var Msg: TMessage);

← →
Сергей М. © (2008-03-31 22:35) [9]

> Не получается, расскрывать узлы

А где ты их собственно пытаешься "раскрывать" ?

← →
DDR (2008-03-31 22:38) [10]

в этом коде нет реализации "расскрывать". Не готово пока.
Думаю но ничего пока толком не получилось.
Тогда подскажите пожалуйста, как можно это проверить, исходя из приведенной ссылки?

Я скопировал код, но не работает.

← →
Сергей М. © (2008-03-31 22:43) [11]

> скопировал код, но не работает

Ты же сам сказал, что

> в этом коде нет реализации "расскрывать"

Чему ж там "работать" ?

← →
DDR (2008-03-31 22:46) [12]

Да нет, этоя про код в [3]

← →
Сергей М. © (2008-03-31 22:52) [13]

> этоя про код в [3]

Я понимаю что про него.

Но твой-то код чем отличается от содранного по указанной ссылке ?

Т.е. какие телодвижения ты приложил к тому чтобы "заточить" пример под свою задачу ?

Этого как раз и не видно ..

← →
DDR (2008-03-31 22:55) [14]

Я знаю. Просто есть две цели:
1. Научиться
2. Немного переписать код для решения своей задачи

← →
Сергей М. © (2008-03-31 23:01) [15]

Что этому препятствует ?

← →
{RASkov} © (2008-03-31 23:04) [16]

> [10] DDR (31.03.08 22:38)
> Я скопировал код, но не работает.

Ну хотябы скопируй для начала правильно)

← →
DDR (2008-03-31 23:05) [17]

Только спрашивают что, зачем, как.....
Много видел что на этом форуме именно помогают разобраться с проблемой и помогают найти правильный путь, а не интересоваться как дела у моей сестренки :(

> DDR (31.03.08 23:05) [17]

> разобраться с проблемой

Ты ее не обозначил, "проблему"-то ..

С чем, спрашивается, "разбираться" ?

← →
DDR (2008-03-31 23:11) [19]

Хорошо....
Ребята, может быть я и туповат, так и есть, видимо :)

Но все-же, не получается.

Во-первых: я все правильно скопировал, с этим проблем нет. Но dragDrop не пашет
Во-второых: Идея - есть проблема. Я затеял прогу, но в тупиковой ситуации, потому и пришёл к мастерам за советом. Так ведь?

> dragDrop не пашет

Так и говорит "не пашу" ?
Что говорит отладчик по этому поводу ?

← →
DDR (2008-03-31 23:19) [21]

Отладчик молчит.
Программа работает нормало. Без проблем.
Только drop не работает.(из примера)

> [19] DDR (31.03.08 23:11)
> Но dragDrop не пашет

DragAcceptFiles(Handle, true); - это есть? Или что значит не пашет?

> я все правильно скопировал, с этим проблем нет.

Странно.... я тоже скопировал и ....пашет)

> потому и пришёл к мастерам за советом. Так ведь?

Тебе нужно телепатам.... :)

← →
DDR (2008-03-31 23:28) [23]

Ладно, башка уже трещит.
Завтра вернусь :)

Пока!

> Отладчик молчит

Он не может молчать, если он задействован, нормально работает и ты умеешь им пользоваться.

> DDR (31.03.08 23:05) [17]
>
> Много видел что на этом форуме именно помогают разобраться
> с проблемой и помогают найти правильный путь

Значит не обратил внимания на то, что "не пашет" на сём форуме считается личной проблемой спрашивающего. Никто и никогда на сём форуме не помогал и не будет помогать чинить чью-то личную соху.

Как перетащить и бросить в TreeView Найти похожие ветки