msg_f.pas

来自「县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数」· PAS 代码 · 共 67 行

unit Msg_F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TF_Msg = class(TForm)
    L_Msg: TLabel;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
	procedure P_Set(V_Caption:String; V_Msg:String);
//	function GetCounter:Integer;
//    procedure IncCounter;
  end;

var
  F_Msg: TF_Msg;

implementation

{$R *.DFM}
procedure TF_Msg.P_Set(V_Caption:String; V_Msg:String);
begin
	Caption := V_Caption;
    L_Msg.Caption := v_Msg;
end;

procedure TF_Msg.FormActivate(Sender: TObject);
begin
end;
{
function TF_Msg.GetCounter:Integer;
Begin
	Result := Counter;
End;

procedure TF_Msg.IncCounter;
Begin
	Inc(Counter);
End;
}
end.