message.~pas

来自「串口监控程序,可与UPS进行通信,适合初学者使用」· ~PAS 代码 · 共 73 行

unit message;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, RzEdit, RzButton;

type
  Tfmessage = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    RzButton1: TRzButton;
    RzButton2: TRzButton;
    RzButton3: TRzButton;
    RzEdit1: TRzEdit;
    RzEdit2: TRzEdit;
    RzEdit3: TRzEdit;
    RzEdit4: TRzEdit;
    RzEdit5: TRzEdit;
    RzEdit6: TRzEdit;
    RzEdit7: TRzEdit;
    Label7: TLabel;
    procedure RzButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmessage: Tfmessage;

implementation

{$R *.dfm}

procedure Tfmessage.RzButton2Click(Sender: TObject);
begin
 close;
end;

procedure Tfmessage.FormCreate(Sender: TObject);
begin
 RzEdit1.Text :='注意!市电断电!';
 rzedit2.Text :='UPS电池低电位!';
 rzedit3.Text :='市电恢复!';
 rzedit4.Text :='UPS低电位恢复!';
 rzedit5.Text :='日程关机警告!!';
 rzedit6.Text :='日程关机取消!!';
 rzedit7.Text :='注意!UPS损坏';

end;

procedure Tfmessage.RzButton1Click(Sender: TObject);
begin
 RzEdit1.Text :='注意!市电断电!';
 rzedit2.Text :='UPS电池低电位!';
 rzedit3.Text :='市电恢复!';
 rzedit4.Text :='UPS低电位恢复!';
 rzedit5.Text :='日程关机警告!!';
 rzedit6.Text :='日程关机取消!!';
 rzedit7.Text :='注意!UPS损坏';
end;

end.