如何让我的窗体得不到焦点，并一直在最上层显示呢？(100分)

Delphi哈哈 · 2002-07-30

例如， 启动我的程序后，最小化到托盘， 然后做别的事，我正在用记事本打字，这时我的窗口自动弹出来了，但是焦点仍在记事本上， 而我的窗口却显示在最上层

redchild · 2002-07-30

将窗体  Enabled 设为 False  //设置窗口不能用,即得不到焦点   FormStyle 设为 fsStayOnTop  //这样窗口将居于上方 给出一个窗口的DFM文件内容: object Form1: TForm1   Left = 192   Top = 107   Width = 544   Height = 375   Caption = 'Form1'   Color = clBtnFace   Enabled = False  //设置窗口不能用,即得不到焦点   Font.Charset = DEFAULT_CHARSET   Font.Color = clWindowText   Font.Height = -11   Font.Name = 'MS Sans Serif'   Font.Style = []   FormStyle = fsStayOnTop  //这样窗口将居于上方   OldCreateOrder = False   PixelsPerInch = 96   TextHeight = 13 end

redchild · 2002-07-30

这样就没上面这么简单了

Delphi哈哈 · 2002-07-30

这样可以在最上方，但是他仍然获得了焦点。

2days · 2002-07-30

在显示时找到记事本的句柄，再设焦点在记事本上

mckz · 2002-07-30

我有例子，本来打算作联众台球瞄准期的，后来因为毕业工作进入试用期， 没时间，给我发邮件吧，txyqbf_GXX@163.com，给我写邮件说明要什么东西 要么我就忘记了

mckz · 2002-07-30

哦，忘记说明了，我的程序类似于foxmail的提示窗口 不知道  是否适合你的需要

Nizvoo · 2002-07-31

做个动作。 先记下当前的操作，然后切换出来，再切换过去。

Qiuliang · 2002-07-31

需要捕捉 WM_MOUSEACTIVE 消息：

代码:

<br>procedure TForm1.WMMouseActivate(var Message: TMessage);<br>begin<br>&nbsp; Message.Result := MA_NOACTIVATE;<br>end;

另外，显示时不要用 Show，用如下代码：

代码:

<br>SetWindowPos(Form1.Handle, HWND_TOPMOST, 0, 0, 0, 0,<br>&nbsp; SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_SHOWWINDOW);<br>

隐藏使用：

代码:

<br>SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,<br>&nbsp; SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_HIDEWINDOW);<br>

qiuliang http://qiuliang.mycool.net

如何让我的窗体得不到焦点，并一直在最上层显示呢？(100分)

Delphi哈哈

Unregistered / Unconfirmed

Delphi哈哈

Unregistered / Unconfirmed

redchild

Unregistered / Unconfirmed

redchild

Unregistered / Unconfirmed

Delphi哈哈

Unregistered / Unconfirmed

2days

Unregistered / Unconfirmed

mckz

Unregistered / Unconfirmed

mckz

Unregistered / Unconfirmed

Nizvoo

Unregistered / Unconfirmed

Qiuliang

Unregistered / Unconfirmed

Similar threads