unitxtpz.pas

DELPHI应用一则

unit Unitxtpz;

interface

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

type
  TFormxtpz = class(TForm)
    GroupBox1: TGroupBox;
    Ed1: TEdit;
    Ed2: TEdit;
    Ed3: TEdit;
    Ed4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    GroupBox2: TGroupBox;
    Cr1: TCheckBox;
    Cr2: TCheckBox;
    Cr3: TCheckBox;
    Cr4: TCheckBox;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Ed1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Ed2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Ed3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Ed4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure Cr1Click(Sender: TObject);
    procedure Cr2Click(Sender: TObject);
    procedure Cr3Click(Sender: TObject);
    procedure Cr4Click(Sender: TObject);
  private
     Filename:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formxtpz: TFormxtpz;
  myIniFile:TIniFile;
implementation

{$R *.dfm}

procedure TFormxtpz.Button2Click(Sender: TObject);
begin
   Close;
end;

procedure TFormxtpz.FormCreate(Sender: TObject);
begin
   Filename:=ExtractFilePath(ParamStr(0))+'cs.ini';
   myIniFile:=TIniFile.Create(Filename);

end;

procedure TFormxtpz.Button1Click(Sender: TObject);
begin
  if Ed1.Text<>'' then
  begin
   myinifile.writestring('config','caption1',Ed1.Text);
  end;
  if Ed2.Text<>'' then
  begin
   myinifile.writestring('config','caption2',Ed2.Text);
  end;
  if Ed3.Text<>'' then
  begin
   myinifile.writestring('config','caption3',Ed3.Text);
  end;
  if Ed4.Text<>'' then
  begin
   myinifile.writestring('config','caption4',Ed4.Text);
  end;
   Close;
end;

procedure TFormxtpz.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    myIniFile.Free;
end;

procedure TFormxtpz.Ed1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=$0D then
  Ed2.SetFocus;
end;

procedure TFormxtpz.Ed2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=$0D then
  Ed3.SetFocus;

end;

procedure TFormxtpz.Ed3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=$0D then
  Ed4.SetFocus;

end;

procedure TFormxtpz.Ed4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
 Button1Click(Sender);
end;

procedure TFormxtpz.FormShow(Sender: TObject);
begin
 Ed1.Enabled:=False; Ed1.Color:=clScrollBar;
 Ed2.Enabled:=False; Ed2.Color:=clScrollBar;
 Ed3.Enabled:=False; Ed3.Color:=clScrollBar;
 Ed4.Enabled:=False; Ed4.Color:=clScrollBar;
end;

procedure TFormxtpz.Cr1Click(Sender: TObject);
begin
 if Cr1.Checked then

 Ed1.Enabled:=True; Ed1.Color:=clWindow;


end;

procedure TFormxtpz.Cr2Click(Sender: TObject);
begin
  if Cr2.Checked then

  Ed2.Enabled:=True; Ed2.Color:=clWindow;


end;

procedure TFormxtpz.Cr3Click(Sender: TObject);
begin
 if Cr3.Checked then
 Ed3.Enabled:=True; Ed3.Color:=clWindow;

end;

procedure TFormxtpz.Cr4Click(Sender: TObject);
begin
 if Cr4.Checked then
 Ed4.Enabled:=True; Ed4.Color:=clWindow;

end;

end.