|
|
如何实现在资源集工具条中，增加按钮，实现 表格文档到 excel
1 我新建了一个 资源集
2 将系统空间简介风格\界面库工具栏资源集\ 的 打印工具条复制了一份 到我新建的资源集
3 打开复制过来的 打印工具条
4 追加 TToolButton
5 追加 TSaveDialog
6 在private部分增加一个FDocView: TDocView;
7 在function TPRINTBAR.ToolBarSupport(AComponet: TComponent): Boolean;函数中增加如下代码：
if AComponet is TDocView then
FDocView := TDocView(AComponet)
else
FDocView := nil;
8 在新增的ToolButton的Click事件中增加：
procedure TPRINTBAR.TlB_OutExcelClick(Sender: TObject);
var
filenames:string; //输出到 excel 的 文件名 从 TSaveDialog 得到
begin
if FDocView <> nil then //如果 按钮被按下，并且 传入的 Docview 有效，那么 调用 filesaveas 为输出做准备
begin
//引用业务模型系统空间\系统功能公共类库\表格文档库
//系统标准动作调用 文件保存对话框
self.FileSaveAs1.Execute;
//得到保存文件名
filenames:=self.FileSaveAs1.FileName;
if filenames='' then
begin
jsdialogs.showmsg('文件输出被用户取消！','友情提示');
exit;
end;
//fdocview.DocClassID
//输出到指定 xls 文件
sheetdoclib.TSHEETDOCLIB.CopySheetToExcel(fdocview,filenames);
//提示 成功
jsdialogs.ShowMsg ('文件保存于 【'+filenames+'】 ，谢谢等候！','友情提示');
//Dialogs.ShowMessage(FDocView.DocClassID);
end;
end;
9 保存，编译 通过
10 在具体功能中 放置了 TBizToolbar ,并引用了 前面的 打印工具条
11 运行功能 ，点输出按钮，选择了文件后 点保存，就不动了，任务管理器中显示未响应
请帮忙解决下，谢谢
|
|
发表于 2008-11-25 22:00:32
楼主