www.pudn.com > netcode58.zip > uSelIP.pas, change:2004-02-22,size:714b


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; 
    CkAll: TCheckBox; 
    procedure LsAllIPClick(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
implementation 
 
{$R *.dfm} 
 
procedure TFormSelIP.LsAllIPClick(Sender: TObject); 
begin 
  if LsAllIP.ItemIndex >= 0 then 
    LbMySelIP.Caption := '我的选择是: ' + LsAllIP.Items[LsAllIP.ItemIndex] 
  else LbMySelIP.Caption := '我的选择是: '; 
end; 
 
end.