unit1.pas

使窗体在桌面边沿停靠的组件,类似QQ自动隐藏的样式

unit Unit1;

interface

uses
 Forms, Controls, StdCtrls, ZnHideForm, Classes;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ZnHideForm1: TZnHideForm;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{-----------------------------  说明----------------------------------------
  属性:
  &.DockPos: 停靠在哪个边沿
  &.AutoDock: 是否启用自动停靠
  &.EdgeSpace: 停靠后露出边沿多少象素
  &.ValidSpace: 若AutoDock=True,在离桌面边沿多少象素开始停靠 

  事件:
  &.DockEvent: 当在某个边沿停靠完毕,触发该事件
  &.OnHideForm: 将要隐藏窗口.
  &.OnShowForm: 将要显示窗口. 注意: 若关联这两个事件,需自己编写隐藏/显示窗口代码

  作者: dmzn [e-mail] 2006-02-09
--------------------------------------------------------------------------------}

end.