怎样做一个像WORD一样的浮动窗口。

Question

是不是动态菜单和工具栏?

Answer 1

我的理解，浮动窗口就是在任务栏没有显示。

Answer 2

你的意思是程序运行时在任务栏没有显示吗?如果是的话可以试试如下代码:
program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Windows;{$R *.RES}var
ExtendedStyle : Integer;begin
Application.Initialize;//============================================================== 
ExtendedStyle := GetWindowLong (Application.Handle, GWL_EXSTYLE);SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW
AND NOT WS_EX_APPWINDOW);
//=============================================================== Application.CreateForm(TForm1, Form1);
Application.Run;
end. 
///////////////////////////////////////////////////////////////
　　一般Windows 95运行程序时都会在任务栏上出现按钮，如果你的程序是一个监视程序，那么出现按钮就不是明智之举了。要实现该功能就要在OnCreate事件里利用到API函数SetWindowLong
procedure TForm1.FormCreate(sender:TObject);
begin
SetWindowLong(Application,Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;
/////////////////////////////////////////////////////////
ShowWindow(Application.Handle, SW_HIDE); 
SetWindowLong(Application.Handle, GWL_EXSTYLE, 
  GetWindowLong(Application.Handle, GWL_EXSTYLE) 
    or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);  

Answer 3

更正一下，我的意思是做一个浮动的工具栏或浮动的菜单栏