DoEndDrag

I am attempting to enhance the drag and drop behaviour
of a data-aware version of a TreeView component using
Delphi 3.0.  I need to update a dataset field with the new
absoluteindex of a node when it is dragged from one location in the tree to another.  I am overriding the 'DoEndDrag' procedure but any attempts to access the
'Target' parameter in order to determine the index of the node receiving the dragged node raises an EAccessViolation exception.
E.g.

procedure MyTree.DoEndDrag(Target: TObject; X, Y: Integer);
begin
   ShowMessage((Target as TObject).ClassName);
    ...
  inherited;
end;

Any assistance would be greatly appreciated.

Bob Daniells
rdaniellAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

JimBob091197Commented:
Hi

There are 2 things I thought of:
1)  You are not checking that Target <> nil.
2)  You are assuming that Target is a TTreeNode, but it is a TTreeView.  This is unlikely, and in your example this would actually make no difference.

Just for you interest, the following code checks Target <> nil, and the node under the cursor <> nil.  This code works fine.

procedure TMyTreeView.DoEndDrag(Target: TObject; X, Y: Integer);
var
    Node: TTreeNode;
begin
    inherited;
    if (Target <> nil) then begin
        Node := TTreeView(Target).GetNodeAt(X, Y);
        if (Node <> nil) then ShowMessage('You dragged ' + Selected.Text + ' onto ' + Node.Text);
    end;
end;

JB
0
rdaniellAuthor Commented:
Hi JimBob,
  Many thanks for your prompt assistance!  By using your
example code as a guide I was able to determine that the
problem lay elsewhere.  I was using a descendant of the Treeview component rather that the original, and by reviewing its source I found some bad code that was always setting
Target to nil.  Many thanks again.

Bob Daniells

0
rdaniellAuthor Commented:
Hi JimBob,
  This is my first crack at using the experts-exchange, and I
omitted to offer you a grade.  Considering that you took the
trouble to offer some code that worked and steered me in the
right direction, I reckon your response deserves an  'A'!

Regards,

Bob Daniells
0
JimBob091197Commented:
Hi

Glad to help you.  I assume you want an answer, and if so then this be it!!!

Regards,
JB
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.