www.pudn.com > telephonefordelphi.rar > 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.