uform_message.pas

电信计费帐务系统话费查询营业厅触摸屏界面

unit Uform_message;

interface

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

type
  TForm_message = class(TForm)
    L_message: TLabel;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  procedure show_message(str:string);
var
  Form_message:TForm_message;
implementation

{$R *.DFM}
procedure show_message(str:string);
begin
  Form_message.L_message.caption:=str;
  Form_message.showmodal;
end;
procedure TForm_message.SpeedButton1Click(Sender: TObject);
begin
  close;
end;

end.