Delphi控件源码

开发平台：

Delphi

ConnectDlg.pas：源码内容

							unit ConnectDlg;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FormSettings, StdCtrls, Buttons, Registry;
type
  TClientConnectForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    PortEdit: TEdit;
    ConnectBut: TBitBtn;
    CancelBut: TBitBtn;
    FormSettings1: TFormSettings;
    ServerCombo: TComboBox;
    Label3: TLabel;
    PassEdit: TEdit;
    StartScreenBox: TCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    procedure  LoadCombo;
    procedure  SaveCombo;
  public
    { Public declarations }
  end;
var
  ClientConnectForm: TClientConnectForm;
implementation
{$R *.DFM}
procedure TClientConnectForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
   s : string;
   i : integer;
begin
   s := ServerCombo.Text;
   i := ServerCombo.Items.IndexOf(s);
   if i <> -1 then ServerCombo.Items.Delete(i);
   ServerCombo.Items.Insert(0, s);
   while ServerCombo.Items.Count > 8 do
      ServerCombo.Items.Delete(8);
   ServerCombo.Text := s;
   SaveCombo;
   FormSettings1.SaveSettings;
end;
procedure TClientConnectForm.FormShow(Sender: TObject);
begin
   LoadCombo;
   ServerCombo.SetFocus;
end;
procedure TClientConnectForm.LoadCombo;
var
   ini : TRegIniFile;
begin
   ini := TRegIniFile.Create('Software' + Application.Title);
   ServerCombo.Items.CommaText := ini.ReadString('Servers', 'ServerCombo', '');
   ServerCombo.ItemIndex := 0;
   ini.Free;
end;
procedure TClientConnectForm.SaveCombo;
var
   ini : TRegIniFile;
begin
   ini := TRegIniFile.Create('Software' + Application.Title);
   ini.WriteString('Servers', 'ServerCombo', ServerCombo.Items.CommaText);
   ini.Free;
end;
end.

						