Delphi 简单实习窗体靠边隐藏

本文整理自网络，侵删。

 
  private
    { Private declarations }
    Procedure OnMove(Var Message:TMessage);  Message WM_MOVE;
  public
    { Public declarations }
  end;


Procedure TForm_Main.OnMove(Var Message:TMessage);
begin
  If GetWindowRect(Form_Main.Handle, lpRect) And (Metrics.X > 0) And (Metrics.Y > 0) Then
  begin
    if lpRect.Left < 30 then
    begin
      Form_Main.Left := 0 - (Form_Main.Width - 10);  //左隐藏
    end Else
    if (Metrics.X - lpRect.Right) < 30 then
    begin
      Form_Main.Left := Metrics.X - 10;   //又隐藏
    end Else
    if lpRect.Top < 30 then
    begin
      Form_Main.Top := 0 - (Form_Main.Height - 10);  //上隐藏
    end Else
    if (Metrics.Y - lpRect.Bottom) < 30 then
    begin                                        //下隐藏
      Form_Main.Top := Metrics.Y - 60;
    end;
  end;
end;

来源：https://www.7xcode.com/archives/93.html
 

相关阅读 >>

Delphi 一个文件重复生成的小工具[附源码]

Delphi获得唯一id字符串

Delphi xe ttask.waitforall/waitforany 一不小心会造成内存泄露

Delphi dxcameracontrol控件(拍照)

wmi技术介绍和应用

Delphi richedit 的scrollbar自动向下滚动

Delphi 处理以逗号分隔的长字符串

Delphi中adoquery执行错误的捕捉

Delphi 快速获取文件大小（使用_lopen和fileseek，此函数可以快速获取文件大小，即使文件已经被其它程序锁定）

Delphi 备份恢复剪切板

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 简单实习窗体靠边隐藏