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

[tanfo2002]

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

[tanfo2002]

谢谢各位参与，请回复。

[Carfield]

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

[liumh3417]

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

[Carfield]

你的意思是程序运行时在任务栏没有显示吗?如果是的话可以试试如下代码:
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);

[tanfo2002]

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