C
cooldren
Unregistered / Unconfirmed
GUEST, unregistred user!
在主程序中调用DLL中一模态对话框,总是在任务栏中显示,而且不能总是在当前程序的前面。如何不让它在任务栏中显示?
代码如下:
DLL:
library cf;
uses
About in 'About.PAS' ;//关于对话框
{$R *.res}
exports
OnShowAbout;
begin
end.
unit About;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,shellApi;
function OnShowAbout():Boolean;export;
type
TAboutFrm = class(TForm)
lbl_version: TLabel;
PanelTop: TPanel;
BevelTop: TBevel;
BevelButton: TBevel;
BtnOK: TButton;
ImgLogo: TImage;
lbl_Email: TLabel;
private
public
end;
var
AboutFrm: TAboutFrm;
implementation
function OnShowAbout():Boolean;
var
AboutFrm:TAboutFrm;
begin
Result:=False;
AboutFrm:=TAboutFrm.Create(Application);
try
with AboutFrm do
if ShowModal=mrOK then
Result:=True;
finally
AboutFrm.Free;
end;
end;
{$R *.dfm}
end.
请问这是为什么?
谢谢!
代码如下:
DLL:
library cf;
uses
About in 'About.PAS' ;//关于对话框
{$R *.res}
exports
OnShowAbout;
begin
end.
unit About;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,shellApi;
function OnShowAbout():Boolean;export;
type
TAboutFrm = class(TForm)
lbl_version: TLabel;
PanelTop: TPanel;
BevelTop: TBevel;
BevelButton: TBevel;
BtnOK: TButton;
ImgLogo: TImage;
lbl_Email: TLabel;
private
public
end;
var
AboutFrm: TAboutFrm;
implementation
function OnShowAbout():Boolean;
var
AboutFrm:TAboutFrm;
begin
Result:=False;
AboutFrm:=TAboutFrm.Create(Application);
try
with AboutFrm do
if ShowModal=mrOK then
Result:=True;
finally
AboutFrm.Free;
end;
end;
{$R *.dfm}
end.
请问这是为什么?
谢谢!