说说gtPDFViewer1这款古怪的组件使用
下面在使用过程中发现了一个问题，官方给的实例是通过action调用打开PDF文件的但是呢？我要求在使用文件浏览器时，双击某文件打开(传递一个路径过去）就用不了啦~~
于是查看自带的CHM竟然没有
发现最有可能的是：gtPDFDocument1.LoadFromFile('你的文件路径');
使用后发现不报错，就是pdf没有显示出来。。。
组件使用时，必须使用gtPDFViewer1 和 gtPDFDocument1
案例里也没有找到答案，最后无奈的看了下原官方英文的FAQ
通过几轮测试发现出问题的代码在下面的注释代码中。
procedure TMain_Form1.FileListBox1DblClick(Sender: TObject);
var
i: Integer;
TempString: string;
begin
for i := 0 to FileListBox1.items.count - 1 do
begin
if FileListBox1.Selected = True then
begin
// ShowMessage(FileListBox1.items); //得到文件名（含扩展名）
ShowMessage(FileListBox1.Directory + (FileListBox1.items)); //得到文件完整路径
TempString := FileListBox1.Directory + (FileListBox1.items);
gtPDFViewer1.PDFDocument := gtPDFDocument1; //这句不加上不显示文档内容
gtPDFDocument1.LoadFromFile(TempString);
gtPDFViewer1.Active := True; //这句不加上同样也不显示文档内容
// ShellExecute(Handle, 'Open', PChar('wordpad.exe'), PChar(TempString), nil, SW_SHOWNORMAL);
end;
end;
end;
多借 分享这个 没有见过 这个控件打印出来的pdf带水印吗 学习了，这个我们也研究过
页:
[1]