如何设计一个窗体，使它总位于最上面，并且点击时不会获得焦点？(100分)

happydelphi · 2002-06-05

是否必须用winapi来实现，能否用vcl实现？具体代码？ 如何在此窗体上生成speedbutton控件？[?]

孔明.net · 2002-06-05

4.1、设置窗体为"StayOnTop"风格. SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top, Form1.Width, Form1.Height,0); 这里的Form1为你的窗体的名字 4.2、设置窗体为正常的、非Topmost风格 SetWindowPos(Form1.handle, HWND_NOTOPMOST, Form1.Left, Form1.Top, Form1.Width, Form1.Height,0); SetWindowPos(handle, hwnd_TopMost, 0, 0, 0, 0, swp_NoMove or swp_NoSize); 推荐！

rainxy2002 · 2002-06-05

回答第二个问题   private     { Private declarations }    procedure WMMouseActivate(var Msg: TWMMouseActivate); message WM_MOUSEACTIVATE;    procedure WmNCHitTest(var Msg :TWMNCHitTest); message WM_NCHITTEST;   End; ... procedure TForm1.WMMouseActivate(var Msg: TWMMouseActivate);  begin   Msg.Result := MA_NOACTIVATE; end; procedure TForm1.WmNCHitTest(var Msg: TWMNCHitTest); begin   DefaultHandler(Msg);   if Msg.Result = HTCAPTION then     Msg.Result := HTNOWHERE; end;

happydelphi · 2002-06-05

我提的问题最关键的是如何让它在鼠标点击时不获得焦点，谢谢关注！ 如果必须用api写，请写出代码。

御键飞天 · 2002-06-05

变态!窗体不获得焦点,想怎么用?干脆不如这样:     procedure TForm1.FormClick(Sender: TObject);     begin       Self.Enabled:=False;     end;

liuyan · 2002-06-05

出个烂主意： 做好你要的FORM，设为StayOnTop，wsMaximized 在你不想让别人按的按钮上，盖上一层同名的Panel

小黄鱼 · 2002-06-05

在适当的时机 用 sendmessage(handle,wm_killfocus,0,0); 哈哈

happydelphi · 2002-06-05

to 御键飞天：     不获得焦点的窗体当然有用，在上面放上speedbutton就可以模拟键盘输入了，而且 不会夺走记事本或其他需要输入文字的窗口的焦点。 to 小黄鱼：     说的太笼统了，我也知道有可能这样，但是无法实施。

rainxy2002 · 2002-06-05

那你还不如建一个后台，查找需要的窗体和控件，然后PostMessage(键盘事件)

happydelphi · 2002-06-06

delphi里面有没有和vc中pretranslatemessage虚拟函数功能近似的函数？

yyanghhong · 2002-06-07

use THintwindow.

如何设计一个窗体，使它总位于最上面，并且点击时不会获得焦点？(100分)

happydelphi

Unregistered / Unconfirmed

孔明.net

Unregistered / Unconfirmed

rainxy2002

Unregistered / Unconfirmed

happydelphi

Unregistered / Unconfirmed

御键飞天

Unregistered / Unconfirmed

liuyan

Unregistered / Unconfirmed

小黄鱼

Unregistered / Unconfirmed

happydelphi

Unregistered / Unconfirmed

rainxy2002

Unregistered / Unconfirmed

happydelphi

Unregistered / Unconfirmed

yyanghhong

Unregistered / Unconfirmed

Similar threads