formsetting.pas

企业通comicq是一个通讯工具软件,一个通讯工具软件

unit FormSetting;

interface

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

type
  TSettingForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Ed_LocalIP: TEdit;
    Ed_Port: TEdit;
    Chk_AutoUpdate: TCheckBox;
    Label3: TLabel;
    Ed_UpdateURL: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    Ed_ServerIP: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SettingForm: TSettingForm;

implementation
{$R *.dfm}

procedure TSettingForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cafree;
end;

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

procedure TSettingForm.FormCreate(Sender: TObject);
begin
  Ed_LocalIP.Text        := MainForm.COMICQ.LocalIP;
  Ed_Port.Text           := MainForm.COMICQ.Port;
  Ed_UpdateURL.Text      := MainForm.COMICQ.UpdateURL;
  Ed_ServerIP.Text       := MainForm.COMICQ.ServerIP;
  Chk_AutoUpdate.Checked := MainForm.COMICQ.IsAutoUpdate;
end;

procedure TSettingForm.Button1Click(Sender: TObject);
var
  ServerIP,Port,UpdateURL:String;
  IsAutoUpdate:boolean;
begin
  Port      := trim(Ed_Port.Text);
  UpdateURL := trim(Ed_UpdateURL.Text);
  ServerIP  := trim(Ed_ServerIP.Text);
  IsAutoUpdate := Chk_AutoUpdate.Checked;

  MainForm.COMICQ.SaveSysConfig(ServerIP,Port,UpdateURL,IsAutoUpdate);

  Close;  
end;

end.