我才是约老师 發表於 2021-7-13 15:40:00

Delphi 事件OnCanResize、OnConstrainedResize、OnResize

<p><span style="font-size: 16px"><strong>Delphi 事件 OnCanResize、OnConstrainedResize、OnResize</strong></span></p>
<p><span style="font-size: 16px"><strong>1、OnCanResize</strong>&nbsp; //尝试调整控件大小时发生。</span></p>
<p><span style="font-size: 16px">原型:</span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">type TCanResizeEvent = procedure(
  Sender: TObject;    //Sender是正在调整大小的对象。
  var NewWidth,      //NewWidth返回对象的新宽度。
  NewHeight: Integer;   //NewHeight返回对象的新高度。
  var Resize: Boolean   //如果可以继续调整大小尝试,Resize返回true;如果应该中止调整大小尝试,Resize返回false。
) of object;

property OnCanResize: TCanResizeEvent;</pre>
</div>
<p><span style="font-size: 16px">描述:</span></p>
<ul>
<li><span style="font-size: 16px">使用OnCanResize调整控件大小的方式。如有必要,在OnCanResize事件处理程序中更改控件的新宽度和高度。OnCanResize事件处理程序还允许应用程序指示应该中止整个调整大小。</span></li>
<li><span style="font-size: 16px">如果没有OnCanResize事件处理程序,或者OnCanResize事件处理程序指示调整大小尝试可以继续,则OnCanResize事件后面会立即出现OnConstrainedResize事件。 </span></li>
</ul>
<p><span style="font-size: 16px"><strong>2、OnConstrainedResize</strong>&nbsp; // Adjust resize constraints. 调整大小约束&nbsp;</span></p>
<p><span style="font-size: 16px">原型:</span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">type TConstrainedResizeEvent = procedure(
  Sender: TObject;   //Sender是正在调整大小的对象。
  var MinWidth,   //MinWidth返回对象可以调整大小的最小宽度。
  MinHeight,   //MinHeight返回可以调整对象大小的最小高度。
  MaxWidth,   //MaxWidth返回对象可以调整大小的最大宽度。
  MaxHeight: Integer//MaxHeight返回可以调整对象大小的最大高度。
) of object;

property OnConstrainedResize: TConstrainedResizeEvent;</pre>
</div>
<p><span style="font-size: 16px">描述:</span></p>
<ul>
<li><span style="font-size: 16px">使用OnConstrainedResize在尝试调整控件的大小时调整其约束。进入OnConstrainedResize事件处理程序后,事件处理程序的参数将设置为控件的“约束”对象的相应属性。事件处理程序可以在将这些值应用于应用于控件的新高度和宽度之前调整这些值。</span></li>
<li><span style="font-size: 16px">从OnConstrainedResize事件处理程序退出时,约束将应用于尝试的新高度和宽度。一旦应用了约束,控件的高度和宽度就会改变。控件的高度和宽度更改后,将发生OnResize事件,以允许进行任何最终调整或响应。</span></li>
</ul>
<p><span style="font-size: 16px">  </span></p>
<p><span style="font-size: 16px"><strong>3、OnResize</strong>&nbsp; //在调整控件大小后立即发生。</span></p>
<p><span style="font-size: 16px">原型:</span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">type TNotifyEvent = procedure (
  Sender: TObject
  {TNotifyEvent类型是没有事件特定参数的事件的类型。这些事件只是通知组件发生了特定事件。例如,类型为TNotifyEvent的OnClick通知控件在控件上发生了click事件。
    Sender参数是调用其事件处理程序的对象。例如:对于按钮的OnClick事件,Sender参数是被单击的按钮组件。}
) of object; property OnResize: TNotifyEvent; </pre>
</div>
<p><span style="font-size: 16px">描述:</span></p>
<ul>
<li><span style="font-size: 16px">使用OnResize在调整控件大小后进行任何最终调整。</span></li>
<li><span style="font-size: 16px">要修改控件在尝试调整其大小时的响应方式,请使用OnCanResize或OnConstrainedResize。</span></li>
<li><span style="font-size: 16px">注意:某些控件在第一次创建控件时调用此事件处理程序。</span></li>
</ul>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p><span style="color: rgba(136, 136, 136, 1)">创建时间:2021.07.13  更新时间:</span></p>

</div>
<div id="MySignature" role="contentinfo">
    博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助,谢谢!<br><br>
来源:https://www.cnblogs.com/guorongtao/p/15006700.html
頁: [1]
查看完整版本: Delphi 事件OnCanResize、OnConstrainedResize、OnResize