unitphonekeyboard.pas

自动语音应答系统

unit UnitPhoneKeyboard;

interface

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

type
  TFormKeyboard = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    Edit3: TEdit;
    Button3: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Button4: TButton;
    Edit5: TEdit;
    Button5: TButton;
    Edit6: TEdit;
    Button6: TButton;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit7: TEdit;
    Button7: TButton;
    Edit8: TEdit;
    Button8: TButton;
    Edit9: TEdit;
    Button9: TButton;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit10: TEdit;
    Button10: TButton;
    Edit11: TEdit;
    Button11: TButton;
    Edit12: TEdit;
    Button12: TButton;
    BitBtn1: TBitBtn;
    OpenDialog1: TOpenDialog;
    procedure ButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure EditExit(Sender: TObject);
  private
    button:array[1..12]of TButton;
    { Private declarations }
  public
    edit:array[1..12]of TEdit;
    { Public declarations }
  end;

var
  FormKeyboard: TFormKeyboard;

implementation

uses UnitMain;

{$R *.DFM}

procedure TFormKeyboard.ButtonClick(Sender: TObject);
var
   s:string;
begin
   if OpenDialog1.Execute then
   begin
      s:=(Sender as TButton).Name;
      delete(s,1,6); //删除名字中的Button
      edit[strtoint(s)].text:=OpenDialog1.FileName;
      EditExit(edit[strtoint(s)]);
   end;
end;

procedure TFormKeyboard.FormCreate(Sender: TObject);
var
   i:integer;
begin
   edit[1]:=edit1;
   edit[2]:=edit2;
   edit[3]:=edit3;
   edit[4]:=edit4;
   edit[5]:=edit5;
   edit[6]:=edit6;
   edit[7]:=edit7;
   edit[8]:=edit8;
   edit[9]:=edit9;
   edit[10]:=edit10;
   edit[11]:=edit11;
   edit[12]:=edit12;
   button[1]:=button1;
   button[2]:=button2;
   button[3]:=button3;
   button[4]:=button4;
   button[5]:=button5;
   button[6]:=button6;
   button[7]:=button7;
   button[8]:=button8;
   button[9]:=button9;
   button[10]:=button10;
   button[11]:=button11;
   button[12]:=button12;
   for i:=1 to 12 do
      if (FormMain.Reg.ValueExists(inttostr(i))) then edit[i].text:=FormMain.Reg.ReadString(inttostr(i));
end;

procedure TFormKeyboard.EditExit(Sender: TObject);
var
   s:string;
begin
   s:=(Sender as TEdit).Name;
   delete(s,1,4); //删除名字中的Edit
   FormMain.Reg.WriteString(s,trim(edit[strtoint(s)].text));
end;

end.