help.pas

三层ERP系统 (SQL)

unit help;

interface

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

const
  wm_user_getdata = WM_USER+1024;

type
  Tfrmhelp = class(TfrmBase_C)
    Memo1: TMemo;
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    procedure getdata(var getdata:Tmessage);message WM_USER_GETDATA;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmhelp: Tfrmhelp;

implementation

uses Global;

{$R *.dfm}

procedure Tfrmhelp.Button1Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tfrmhelp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  frmhelp:=nil;
end;

procedure Tfrmhelp.getdata(var getdata: Tmessage);
begin
  memo1.Lines.Add('╰参砞璸 : MIS场