如果让一个窗体锁定在桌面，同时程序运行时不显示在工具栏？

Question

首页窗体要像QQ或TM那样，显示的时候在工具栏不显示。同时，窗体希望在桌面右侧显示。其它窗体运行时不受影响，但用户回到桌面状态时窗体始终显示。这有点类似google桌面程序。

Answer 1

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;----------------------------
上面的是让窗体锁定在桌面

Answer 2

晕
copy错了------------------------------
-------------------------------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;
     WndParent:=GetDesktopWindow;
 end;end;

Answer 3

上面发的是让窗体锁定桌面下面的是程序运行时不显示在工具栏ShowWindow(Application.Handle, SW_HIDE);至于在左面右侧显示
这个你设计的时候放在右侧，运行时就在右侧了
呵呵希望上面的对你有所帮助

Answer 4

完全同意 andyzhou1101 的说法！