当用户运行exe时,告诉阻止Delphi程序显示任何消息窗口的最标准和简单方法是什么?
例如,这是我的带有Web浏览器对象的程序,当网站有错误时,Geko组件向用户显示错误...我想停止它。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, MOZILLACONTROLLib_TLB;
type
TForm1 = class(TForm)
MozillaBrowser1: TMozillaBrowser;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
MozillaBrowser1.Navigate('http://www.xeex.ir');
end;
end.
答案 0 :(得分:0)
一般情况下,你无法做出你所要求的事情。您无法应用将停止显示所有错误对话框的设置。
对于本机Delphi例外,如果您愿意,可以选择忽略它们。这不是一个好主意。对于第三方代码显示的消息框,您需要该代码提供一种方法来抑制这些错误。如果存在该机制,您当然可以使用它。但如果没有机制,那么你就不走运了。每个不同的库都将使用不同的机制。