在delphi中关于悬浮窗口的问题

一同打开说明悬浮窗体也一同创建了，点击菜单：project-view source,将

Application.Initialize

。。。。这中间的代码粘贴出来看看

Application.Run

主菜单-->。

2. 设置 Output Directory 为你想要的文件夹路径即可，方法如下options -->：

在delphi的IDE中project -->：

1打开工程选项设置窗口如果你指的是工程文件最后生成的 .exe文件的所在位置

把大窗体设成MDIParent，小窗体设成MDIchild 这样，所有有小窗体在关闭前，全是浮动的可拖动

还没有得出答案吗？小弟试了一下下面的程序，没有问题，始终最上，不会在任务栏显示标题，主窗口最小化时悬浮窗口不受影响。unit Unit2interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrlstype TfrmPop = class(TForm) procedure FormMouseDown(Sender: TObjectButton: TMouseButtonShift: TShiftStateX, Y: Integer)private { Private declarations } public { Public declarations } procedure CreateParams(var Params: TCreateParams)overrideendvar frmPop: TfrmPopimplementation{$R *.dfm}procedure TfrmPop.CreateParams(var Params: TCreateParams)begin inherited CreateParams(Params)with Params do begin ExStyle := ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOWWndParent := 0endendprocedure TfrmPop.FormMouseDown(Sender: TObjectButton: TMouseButtonShift: TShiftStateX, Y: Integer)begin ReleaseCapturePerform(WM_SYSCOMMAND,$F012,0)endend. 查看原帖>>

---