如题
解决方案 »
- 如何在桌面显示文字
- 长春地区收购几本Delphi的二手书,内详 散100分
- delphi初学者又来问菜鸟级的问题了,关于自己写的procedure,在哪里定义啊?
- delphi+oracle ??? 救急!!!
- 请帮我看看这段代码为什么报错?
- 如果要开发一个新的ocx ,他不属于delphi已有的控件,那么应该选取什么vcl class做他的基类
- 问高手个拦截API的东西
- 用Mircosoft OLE DB Provider for Oracle连接数据库时出错。。。
- 报表合并后如何实现自定义预览? 急急急!!!!!!!!!!!!!!!!!
- delphi性能调试
- 刚学了几天数据库,帮忙~~
- 如何顯示一個數值它佔用多少字節
procedure TForm1.Button1Click(Sender: TObject);
var
s: LongInt;
begin
s := WebBrowser1.QueryStatusWB(OLECMDID_PRINT);
if (s and OLECMDF_ENABLED) > 0 then
WebBrowser1.ExecWB(OLECMDID_PRINT,
OLECMDEXECOPT_PROMPTUSER,
EmptyParam, EmptyParam)
else
ShowMessage('Error!');
end;