-
Здравствуйте!
Подскажите пожалуйста как перетащить и бросить в TreeView файлы и(или) папки, например, с рабочего стола? Что-то не получается.
-
Показывай как пытался
-
-
Прошу Вас строго не судить, данный код в рамках эксперимента, потому и криво и неточности.....
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;
-
И что собственно не получается ?
-
Ребята, подскажите плиз, что я не так делаю. Согласно использования кода по ссылке http:
-
Не получается, расскрывать узлы.
Например, бросил папку "Новая папка", которая содержит файлы и в treeview1 раскрывалась структура этого каталога.
-
Приведенный код фигурирует в теле какого метода какого объекта ?
-
procedure TForm1.WMDROPFILES (var Msg: TMessage);
-
> Не получается, расскрывать узлы
А где ты их собственно пытаешься "раскрывать" ?
-
в этом коде нет реализации "расскрывать". Не готово пока.
Думаю но ничего пока толком не получилось.
Тогда подскажите пожалуйста, как можно это проверить, исходя из приведенной ссылки?
Я скопировал код, но не работает.
-
> скопировал код, но не работает
Ты же сам сказал, что
> в этом коде нет реализации "расскрывать"
Чему ж там "работать" ?
-
Да нет, этоя про код в [3]
-
> этоя про код в [3]
Я понимаю что про него.
Но твой-то код чем отличается от содранного по указанной ссылке ?
Т.е. какие телодвижения ты приложил к тому чтобы "заточить" пример под свою задачу ?
Этого как раз и не видно ..
-
Я знаю. Просто есть две цели:
1. Научиться
2. Немного переписать код для решения своей задачи
-
Что этому препятствует ?
-
> [10] DDR (31.03.08 22:38)
> Я скопировал код, но не работает.
Ну хотябы скопируй для начала правильно)
-
Только спрашивают что, зачем, как.....
Много видел что на этом форуме именно помогают разобраться с проблемой и помогают найти правильный путь, а не интересоваться как дела у моей сестренки :(
-
> DDR (31.03.08 23:05) [17]
> разобраться с проблемой
Ты ее не обозначил, "проблему"-то ..
С чем, спрашивается, "разбираться" ?
-
Хорошо....
Ребята, может быть я и туповат, так и есть, видимо :)
Но все-же, не получается.
Во-первых: я все правильно скопировал, с этим проблем нет. Но dragDrop не пашет
Во-второых: Идея - есть проблема. Я затеял прогу, но в тупиковой ситуации, потому и пришёл к мастерам за советом. Так ведь?
-
> dragDrop не пашет
Так и говорит "не пашу" ?
Что говорит отладчик по этому поводу ?
-
Отладчик молчит.
Программа работает нормало. Без проблем.
Только drop не работает.(из примера)
-
> [19] DDR (31.03.08 23:11)
> Но dragDrop не пашет
DragAcceptFiles(Handle, true); - это есть? Или что значит не пашет?
> я все правильно скопировал, с этим проблем нет.
Странно.... я тоже скопировал и ....пашет)
> потому и пришёл к мастерам за советом. Так ведь?
Тебе нужно телепатам.... :)
-
Ладно, башка уже трещит.
Завтра вернусь :)
Пока!
|
Есть новые 
Нет новых [134433 +25][b:0][p:0.002]