我用DELPHI做播放器时怎样才能做出像WINAMP中那种当窗口靠近另一窗口时会自动吸附的效果呢?在VC里看到做这种吸附窗口效果不是很难,不知道我用两个FORM能不能做出来。请大家帮帮忙,谢谢了!
解决方案 »
- Dell 函数返回值问题 高手进!
- delphi编程中用了paradox数据库,然后编完后生成的可运行文件在别的机子上不能运行,因为没把数据库弄过去,该怎么解决,谢谢了!!!
- DBGrid取值问题,大家帮帮忙!
- Delphi 和 C++Builder 的 SQL BUILDER 在哪儿?
- 关于在服务中用ADO连接数据库或用BDE连接数据库时如何完整发布BDE
- 寻找可以读写xls的控件
- stringgrid表格线如可加粗
- 哪里能下载二笔输入法?听说这个输入法很不错!
- 关于MIDAS编程问题
- TdxSideBar在哪里有的下载呢?
- 哪儿有压缩文件的控件,比如Delphizlib之类的,适合Delphi6的
- 如何不必添加空记录而在打印完数据后继续画表格线?用Reportbuilder
type
TForm1 = class(TForm)
private
procedure WMMOVE(var Msg: TMessage); message WM_MOVE;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}{ TForm1 }procedure TForm1.WMMOVE(var Msg: TMessage);
begin
Inherited;
if (Left < 10) and (Top < 10) and
(Left <> 0) and (Top <> 0) then // 设定移动到左上角 10 点范围内时贴到边上去
begin
Left := 0;
Top := 0;
Msg.Result := 0;
end;
end;
这只是最简单的
作多个窗体相互吸引也是同样的道理,这就是磁性窗体的实现原理
不过会有些bug,就是在相互吸引的范围内如果你用鼠标拖住窗体,会出现窗体的抖动,这个问题我也没办法解决
VC的http://www.csdn.net/magazine/sourcecode/Topic/0/28.shtm
BCB的http://bdn.borland.com/article/0,1410,26370,00.html
桌面的吸附窗口效果http://delphi.icm.edu.pl/ftp/d30free/magform.zip