procedure TbsFileUrlPop.cxtxtdtDestinationUrlClick(Sender: TObject);
var
strPath: string; // 用户选定后的目录
begin
inherited;
strPath := '';
if (SelectDirectory('请选择文件保存的路径', '', strPath)) then
begin
cxtxtdtDestinationUrl.Text := strPath;
end;
end;