Delphi让窗体感知鼠标的进入与移出并自动隐藏与显示窗口
const
WM_MouseEnter = $B013;
WM_MouseLeave = $B014;
type
TfrmMain = class(TForm)
.
.
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
protected
procedure WMMouseEnter(var Msg: TMessage); message WM_MouseEnter;
end;
implementation
{$R *.dfm}
procedure TfrmMain.WMMouseEnter(var Msg: TMessage);
begin
if(Top<0) then
begin
Top := 0;
//为保证下拉窗体后呈现在最前面
SetWindowPos(Handle,HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE); //将窗体推到最前
SetWindowPos(Handle,HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);//然后取消窗体最前
end;
Timer1.Enabled := True;
end;
//依赖定时器定时检查鼠标是否还在窗体范围内,这样此能避免因为快速移动鼠标而丢失MOUSELEAVE事件
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载
- 1
- 2
前往页