uselip.pas

来自「NetPhone little VoIP program written in 」· 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;
    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.