文件名称：响应改变-gb∕t 21050-2019 信息安全技术 网络交换机安全技术要求
文件大小：1.19MB
文件格式：PDF
更新时间：2024-06-29 06:59:44
Delphi 组件
6.5 响应改变 所有的图形对象，包括画布和画布拥有的对象（画笔、画刷、字体），都有内置于其中 的事件来响应在对象中的改变。通过使用这些事件，可以使你的组件（或使用这些组件的应 用程序）重绘其图象来响应改变。 如果你的组件作为设计时接口的一部分被发布，那么响应图形对象中的改变尤其重要。 保证组件在设计时的外观显示与在对象查看器中的属性集匹配的唯一途径，就是响应在对象 中的改变。 要响应在图形对象中的改变，给类的 OnChange 事件指派方法。 形状（shape）组件发布用于绘制其形状的代表其画笔和画刷的属性。此组件的构造函 数给每一个画笔或画刷的 OnChange 事件指派一个方法，从而引起此组件在画笔或画刷改变 时刷新其图象： type TShape = class(TGraphicControl) public procedure StyleChanged(Sender: TOBject); end; ... implementation ... constructor TShape.Create(AOwner: TComponent); begin inherited Create(AOwner); // always call the inherited constructor Width := 65; Height := 65; FPen := TPen.Create; // construct the pen FPen.OnChange := StyleChanged; // assign method to OnChange event FBrush := TBrush.Create; // construct the brush FBrush.OnChange := StyleChanged; // assign method to OnChange event end; procedure TShape.StyleChanged(Sender: TObject); begin Invalidate(); // erase and repaint the component end;