frmConfig.pas
上传用户:youjie821
上传日期:2013-01-27
资源大小:459k
文件大小:2k
源码类别:

PlugIns编程

开发平台:

Delphi

  1. unit frmConfig;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, ComCtrls, RzTreeVw, ActnList, RzButton, ExtCtrls, RzPanel,
  6.   ImgList, RzTabs, StdCtrls, Mask, RzEdit, RzLabel, IniFiles;
  7. type
  8.   TMyTreeNode = class(TTreeNode)
  9.   end;
  10.   TConfigForm = class(TForm)
  11.     RzPanel1: TRzPanel;
  12.     RzButton1: TRzButton;
  13.     RzButton2: TRzButton;
  14.     ActionList1: TActionList;
  15.     actOk: TAction;
  16.     actCancel: TAction;
  17.     ImageList1: TImageList;
  18.     RzPanel2: TRzPanel;
  19.     edtServerPort: TRzEdit;
  20.     RzLabel1: TRzLabel;
  21.     procedure actOkExecute(Sender: TObject);
  22.     procedure actCancelExecute(Sender: TObject);
  23.     procedure FormCreate(Sender: TObject);
  24.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.   procedure ShowConfigForm;
  31. implementation
  32. {$R *.dfm}
  33. procedure ShowConfigForm;
  34. begin
  35.   with TConfigForm.Create(nil) do
  36.   try
  37.     ShowModal;
  38.   finally
  39.     Free;
  40.   end;
  41. end;
  42. procedure TConfigForm.actOkExecute(Sender: TObject);
  43. begin
  44.   ModalResult:= mrOk;
  45. end;
  46. procedure TConfigForm.actCancelExecute(Sender: TObject);
  47. begin
  48.   ModalResult:= mrCancel;
  49. end;
  50. procedure TConfigForm.FormCreate(Sender: TObject);
  51. var
  52.   Ini: TIniFile;
  53. begin
  54.   Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'main.ini');
  55.   try
  56.     edtServerPort.Text:= IntToStr(Ini.ReadInteger('Server', 'Port', 9901));
  57.   finally
  58.     Ini.Free;
  59.   end;
  60. end;
  61. procedure TConfigForm.FormClose(Sender: TObject; var Action: TCloseAction);
  62. var
  63.   Ini: TIniFile;
  64. begin
  65.   if ModalResult = mrOk then
  66.   begin
  67.     Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'main.ini');
  68.     try
  69.       Ini.WriteInteger('Server', 'Port', StrToInt(edtServerPort.Text));
  70.     finally
  71.       Ini.Free;
  72.     end;
  73.   end;
  74. end;
  75. end.