uselip.pas

来自「基于delphi的网络IP电话」· PAS 代码 · 共 36 行

unit uSelIP;

interface

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

type
  TFormSelIP = class(TForm)
    Label1: TLabel;
    LbMySelIP: TLabel;
    LsAllIP: TListBox;
    BtOk: TBitBtn;
    BtCancel: TBitBtn;
    procedure LsAllIPClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSelIP: TFormSelIP;

implementation

{$R *.dfm}

procedure TFormSelIP.LsAllIPClick(Sender: TObject);
begin
  LbMySelIP.Caption := '我的选择是: ' + LsAllIP.Items[LsAllIP.ItemIndex];  
end;

end.