type
TShellTreeViewOpener = class(TShellTreeView);
TForm1 = class(TForm)
ShellTreeView1: TShellTreeView;
procedure FormCreate(Sender: TObject);
private
procedure DragDropHandler(Sender, Source: TObject; X, Y: Integer);
procedure DragOverHandler(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TShellTreeViewOpener(ShellTreeView1).OnDragDrop := @DragDropHandler;
TShellTreeViewOpener(ShellTreeView1).OnDragOver := @DragOverHandler;
end;
procedure TForm1.DragDropHandler(Sender, Source: TObject; X,Y: Integer);
begin
// ... put the dragdrop stuff here
end;
procedure TForm1.DragOverHandler(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
// ... put the dragover stuff here
end;