导航

2006年2月15日

[Delphi]让窗体感知鼠标的进入与移出并自动隐藏与显示窗口

摘要： const WM_MouseEnter = $B013; WM_MouseLeave = $B014;type TfrmMain = class(TForm) . . Timer1: TTimer; procedure Timer1Timer(Sender: TObject); protected procedure WMMouseEnter(va... 阅读全文

posted @ 2006-02-15 18:04 xujh 阅读(2478) 评论(1) 推荐(0) 编辑

[Delphi]让窗体产生磁性吸附效果

摘要： 代码很简单type TfrmMain = class(TForm) . . protected procedure WndProc(var Message: TMessage);override; end; implementation {$R *.dfm} procedure TfrmMain.WndProc(var Message: TMessa... 阅读全文

posted @ 2006-02-15 15:30 xujh 阅读(1610) 评论(0) 推荐(0) 编辑