frmtcpudpinfo.pas

来自「监听TCP、UDP端口,查看进程及服务.」· PAS 代码 · 共 54 行

unit frmTCPUDPinfo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, frmMain;

type
  TTCPUDPinfo = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    edProtocol: TEdit;
    edsa: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    edsp: TEdit;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    edda: TEdit;
    eddp: TEdit;
    Label5: TLabel;
    edStat: TEdit;
    btnExit: TButton;
    procedure FormShow(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TCPUDPinfo: TTCPUDPinfo;

implementation

{$R *.DFM}

procedure TTCPUDPinfo.FormShow(Sender: TObject);
begin
     Left := (Screen.Width - Width) div 2;
     Top := (Screen.Height - Height) div 2;

end;

procedure TTCPUDPinfo.btnExitClick(Sender: TObject);
begin
      close;
end;

end.