unitfrmmain.pas

来自「精彩编程百例26～50 其中有 控制任务栏 windows底层任务控制 屏保预览」· PAS 代码 · 共 91 行

unit unitFrmMain;

interface

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



type
  TForm1 = class(TForm)
    cobSection: TComboBox;
    cobIni: TComboBox;
    txtedit: TEdit;
    btn1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    btn2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure cobSectionChange(Sender: TObject);
    procedure cobIniChange(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  IniFile: TIniFile;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
// 使用TIniFile类的Create函数建立TIniFile对
//象，该对象用来读写h盘中的delphi7.ini文件，
  IniFile := TIniFile.Create('h:\delphi7.ini');
  cobSection.Clear;
  IniFile.ReadSections(cobSection.Items);   //从Tinifile对象中读取节点名
  cobSection.ItemIndex := 0;
  cobSectionChange(sender);
  btn2.Enabled := false;

end;

procedure TForm1.cobSectionChange(Sender: TObject);
begin
  cobIni.Clear;
  IniFile.ReadSection(cobSection.Text, cobIni.Items);
//将cobsection中所选择的节点所对应的值送入cobIni
  cobIni.ItemIndex := 0;
  cobInichange(Sender);
end;

procedure TForm1.cobInichange(Sender: TObject);
begin
  btn2.Enabled := false;
//将选择的关键字值读入
  txtEdit.Text := IniFile.ReadString(cobSection.Text, cobIni.Text, '');

end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  btn2.Enabled := true;
  txtedit.Enabled := true;
  txtedit.SetFocus;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  if txtedit.Modified then
    IniFile.WriteString(cobSection.Text, cobIni.Text, txtedit.Text);
  txtEdit.Enabled := false;
  btn2.Enabled := false;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(IniFile);
end;

end.