QQ自动伸缩功能--- 来自网络
来源:互联网 发布:这样开网络商店 编辑:程序博客网 时间:2024/05/01 23:06
procedure TfmMain.Timer2Timer(Sender: TObject);
var
winPos: TPoint;
t: integer;
b: boolean;
begin
b:= false;
//小于3个像素
if (fmMain.Top <= 3) then
begin
b:= true;
t:= 0;
end
//当窗口的(左边距+宽度)-屏幕的宽度 大于 0 时
else if fmMain.Left + fmMain.Width - Screen.Width >= 0 then
begin
b:= true;
t:= fmMain.Top;
end
else
t:= fmMain.Top;
if b then
begin
//得到当前鼠标指针的在屏幕上的坐标
GetCursorPos(winPos);
//当鼠标指针下的窗体的Name等于frmMain.name时
if fmMain.Name = GetFormNameAt(winPos) then
{在此我们可以为frmMain取一个特别的名称,以防有别的窗体名称与它相同}
begin
//停用Timer2
fmMain.timer3.Enabled:= false;
//frmMain的Top与屏幕对齐
fmMain.Top:= t;
if t <> 0 then
fmMain.Left:= Screen.Width - fmMain.Width;
end
else begin
fmMain.Timer3.Enabled:= true;
end;
end;
end;
procedure TfmMain.Timer3Timer(Sender: TObject);
begin
// 当 top 距屏幕上侧 10 像素时,自动隐藏
if fmMain.Top <= 10 then
begin
//将frmMain向上移,在屏幕上方露出3像素
fmMain.Top:= -(fmMain.Height - 3);
if (fmMain.Left + fmMain.Width > Screen.Width) then
fmMain.Left:= Screen.Width - fmMain.Width;
end
// 当 left 距屏幕下侧 10 像素时,自动隐藏
else if fmMain.Left + fmMain.Width - Screen.Width >= -10 then
//将frmMain向右移,在屏幕右方露出4像素
fmMain.Left:= Screen.Width - 4;
end;
- QQ自动伸缩功能--- 来自网络
- 用Delphi模拟QQ窗体伸缩功能
- 用Delphi模拟QQ窗体伸缩功能
- 象QQ一样的自动伸缩菜单
- 超强仿QQ自动伸缩窗口
- 超强仿QQ自动伸缩窗口
- 超强仿QQ自动伸缩窗口
- VC++仿QQ自动伸缩窗口
- Visual C++设计超强仿QQ自动伸缩窗口
- Visual C++设计超强仿QQ自动伸缩窗口
- Visual C++设计超强仿QQ自动伸缩窗口
- Visual C++设计超强仿QQ自动伸缩窗口
- Visual C++设计超强仿QQ自动伸缩窗口
- Visual C++设计超强仿QQ自动伸缩窗口
- Visual C++ 设计超强仿 QQ 自动伸缩窗口
- Visual C++设计超强仿QQ自动伸缩窗口
- Iframe实现高度自适应功能(高度自动伸缩)
- 探索 Windows Azure 网站中的自动伸缩功能
- C#操作IIS代码
- 冷酷·弱智·语言杀手
- powerdesigner的执行脚本----写入名字到注释中.vbs
- 关于datagrid的打印
- powerdesigner中获取pdm中所有对象并修改的vbscript例子
- QQ自动伸缩功能--- 来自网络
- powerdesigner中运用vbscript批量生成触发器脚本
- TrueZIP 5.0 发布-ZIP压缩工具包
- 西方祝酒贺词辞大搜罗
- 我安装Samba服务器的一点经验
- 使用TClientDateSet 在内存中创建一个临时表
- Hyperlink control
- 全面精通Web 2.0,做互联网潮头人
- Eclipse BIRT 2.0 发布