【delphi开源代码栏目提醒】:文章导读:在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-IPList.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    unit IPList;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ComCtrls;
    
    type
      TfrmIPList = class(TForm)
        List: TListView;
        procedure ListDblClick(Sender: TObject);
        procedure FormShow(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      frmIPList: TfrmIPList;
    
    implementation
    
    uses Main,NetUnit;
    
    {$R *.dfm}
    
    procedure TfrmIPList.ListDblClick(Sender: TObject);
    begin
      if List.Selected<>Nil then
         begin
         frmMain.SendTo.Text:=List.Selected.SubItems[0];
         Close;
         end;
    end;
    
    procedure TfrmIPList.FormShow(Sender: TObject);
    var
      MMStream:TMemoryStream;
      msg:String;
    begin
      List.Items.Clear;
      MMStream:=TMemoryStream.Create;
      msg:='@_0';
      MMStream.Write(Msg[1],Length(Msg));
      frmMain.NMUDP.RemoteHost:=BroadCastIP;
      frmMain.NMUDP.SendStream(MMStream);
    end;
    
    end.
    

上一篇：IPCThrd.pas
下一篇：扛起年轻化大旗，哈弗F系玩转行业新风潮