uselectip.~pas

来自「群组对话,组播版,分为服务器端和客户端代码,详细功能有介绍」· ~PAS 代码 · 共 46 行

unit uSelectIP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls;

type
  TfrmSelectIP = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    Label3: TLabel;
    Ed_IP: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure ComboBox1CloseUp(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSelectIP: TfrmSelectIP;

implementation

{$R *.dfm}

procedure TfrmSelectIP.SpeedButton1Click(Sender: TObject);
begin
  if Ed_IP.Text <> '' then
    close;
end;

procedure TfrmSelectIP.ComboBox1CloseUp(Sender: TObject);
begin
  Ed_IP.Text := combobox1.Text;
end;

end.