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
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.050051927566528 seconds