frmconfig.pas

来自「一个基于Socket的在线更新程序」· PAS 代码 · 共 89 行

unit frmConfig;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, RzTreeVw, ActnList, RzButton, ExtCtrls, RzPanel,
  ImgList, RzTabs, StdCtrls, Mask, RzEdit, RzLabel, IniFiles;

type
  TMyTreeNode = class(TTreeNode)
  end;

  TConfigForm = class(TForm)
    RzPanel1: TRzPanel;
    RzButton1: TRzButton;
    RzButton2: TRzButton;
    ActionList1: TActionList;
    actOk: TAction;
    actCancel: TAction;
    ImageList1: TImageList;
    RzPanel2: TRzPanel;
    edtServerPort: TRzEdit;
    RzLabel1: TRzLabel;
    procedure actOkExecute(Sender: TObject);
    procedure actCancelExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  procedure ShowConfigForm;

implementation

{$R *.dfm}

procedure ShowConfigForm;
begin
  with TConfigForm.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TConfigForm.actOkExecute(Sender: TObject);
begin
  ModalResult:= mrOk;
end;

procedure TConfigForm.actCancelExecute(Sender: TObject);
begin
  ModalResult:= mrCancel;
end;

procedure TConfigForm.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'main.ini');
  try
    edtServerPort.Text:= IntToStr(Ini.ReadInteger('Server', 'Port', 9901));
  finally
    Ini.Free;
  end;
end;

procedure TConfigForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Ini: TIniFile;
begin
  if ModalResult = mrOk then
  begin
    Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'main.ini');
    try
      Ini.WriteInteger('Server', 'Port', StrToInt(edtServerPort.Text));
    finally
      Ini.Free;
    end;
  end;
end;

end.