uSelIP.pas
上传用户:axbxcx
上传日期:2009-10-29
资源大小:15k
文件大小:1k
源码类别:

TAPI编程

开发平台:

Delphi

  1. unit uSelIP;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, StdCtrls, Buttons;
  6. type
  7.   TFormSelIP = class(TForm)
  8.     Label1: TLabel;
  9.     LbMySelIP: TLabel;
  10.     LsAllIP: TListBox;
  11.     BtOk: TBitBtn;
  12.     BtCancel: TBitBtn;
  13.     CkAll: TCheckBox;
  14.     procedure LsAllIPClick(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20. implementation
  21. {$R *.dfm}
  22. procedure TFormSelIP.LsAllIPClick(Sender: TObject);
  23. begin
  24.   if LsAllIP.ItemIndex >= 0 then
  25.     LbMySelIP.Caption := '我的选择是: ' + LsAllIP.Items[LsAllIP.ItemIndex]
  26.   else LbMySelIP.Caption := '我的选择是: ';
  27. end;
  28. end.