关于网友提出的“ 如果让一个窗体锁定在桌面，同时程序运行时不显示在工具栏？”问题疑问，本网通过在网上对“ 如果让一个窗体锁定在桌面，同时程序运行时不显示在工具栏？”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： 如果让一个窗体锁定在桌面，同时程序运行时不显示在工具栏？
描述: 首页窗体要像QQ或TM那样，显示的时候在工具栏不显示。同时，窗体希望在桌面右侧显示。其它窗体运行时不受影响，但用户回到桌面状态时窗体始终显示。这有点类似google桌面程序。
解决方案1: 完全同意 andyzhou1101 的说法！
解决方案2: type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure Createparams(Var Params:TCreateParams);override;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Createparams(var Params: TCreateParams);
begin
inherited;
With Params do
begin
//EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME;
EXStyle:= ExStyle or WS_EX_TOPMOST;
WndParent:=GetDesktopWindow;
end;
//ShowWindow(Application.Handle, SW_HIDE);
end;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure Createparams(Var Params:TCreateParams);override;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Createparams(var Params: TCreateParams);
begin
inherited;
With Params do
begin
EXStyle:= ExStyle or WS_EX_TOPMOST;
WndParent:=GetDesktopWindow;
end;
end;
----------------------------
上面的是让窗体锁定在桌面
以上介绍了“ 如果让一个窗体锁定在桌面，同时程序运行时不显示在工具栏？”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/2394107.html
