自己项目用的一个控件，自己封装的

最新推荐文章于 2025-08-02 13:43:27 发布

原创

最新推荐文章于 2025-08-02 13:43:27 发布 · 2.1k 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了如何封装一个名为RzPanelEX的自定义控件，该控件继承自TRzPanel，并包含了多个子组件如TRzLabel，用于显示温度、湿度等数据。控件提供了设置顶部文字、温度、湿度以及提示信息的方法，同时支持自定义颜色等功能。

unit rzpanelEX;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, RzPanel,RzLabel,Graphics,RzCommon;

type
  trzpanelEX = class(TRzPanel)
  private

    label_top :TRzLabel;
    label_bg :TRzLabel;
    label_wd :TRzLabel;
    label_sd :TRzLabel;
    label_wdfh,label_sdfh:TRzLabel;
    label_tip1,label_tip2:TRzLabel;
    procedure SetTopText(const value :string);
    function ReadTopText():string;
    function SetDevStatus(value :Boolean):Boolean;
    procedure SetWD(const value:string);
    procedure SetSD(const value:string);
    function ReadWD():string;
    function ReadSD():string;
    function ReadTip1: string;
    function ReadTip2: string;
    procedure SetTip1(const Value: string);
    procedure SetTip2(const Value: string);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;


  published
    { Published declarations }