Delphi 事件OnCanResize、OnConstrainedResize、OnResize

type TCanResizeEvent = procedure(
　　Sender: TObject;    //Sender是正在调整大小的对象。
　　var NewWidth,    　　//NewWidth返回对象的新宽度。
　　NewHeight: Integer;   //NewHeight返回对象的新高度。
　　var Resize: Boolean   //如果可以继续调整大小尝试，Resize返回true；如果应该中止调整大小尝试，Resize返回false。
) of object;

property OnCanResize: TCanResizeEvent;

type TConstrainedResizeEvent = procedure(
　　Sender: TObject;   //Sender是正在调整大小的对象。
　　var MinWidth,   //MinWidth返回对象可以调整大小的最小宽度。
　　MinHeight, 　　//MinHeight返回可以调整对象大小的最小高度。
　　MaxWidth, 　　//MaxWidth返回对象可以调整大小的最大宽度。
　　MaxHeight: Integer  //MaxHeight返回可以调整对象大小的最大高度。
) of object;

property OnConstrainedResize: TConstrainedResizeEvent;

type TNotifyEvent = procedure (
　　Sender: TObject  
　　{TNotifyEvent类型是没有事件特定参数的事件的类型。这些事件只是通知组件发生了特定事件。例如，类型为TNotifyEvent的OnClick通知控件在控件上发生了click事件。
　　　　Sender参数是调用其事件处理程序的对象。例如:对于按钮的OnClick事件，Sender参数是被单击的按钮组件。} 
) of object; property OnResize: TNotifyEvent;