param.pas

一个远程监控程序

unit Param;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;

type
  TfrmParam = class(TForm)
    edtParam: TEdit;
    cob_max: TComboBox;
    Label1: TLabel;
    sbOK: TSpeedButton;
    sbCancel: TSpeedButton;
    Label2: TLabel;
    procedure sbCancelClick(Sender: TObject);
    procedure sbOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edtParamKeyPress(Sender: TObject; var Key: Char);
    procedure cob_maxKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmParam: TfrmParam;

implementation

uses Umain;

{$R *.dfm}

procedure TfrmParam.sbCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmParam.sbOKClick(Sender: TObject);
var
   TempText,TempStr:String;
begin
   if Trim(cob_max.Text)='' then begin
      Application.MessageBox('请选择类型!','提示',MB_ICONWARNING);
      exit;
   end;
   if Trim(cob_max.Text)='隐藏执行' then TempStr:='0'
   else if Trim(cob_max.Text)='显示执行' then TempStr:='1'
   else begin
      Application.MessageBox('请选择类型!','提示',MB_ICONWARNING);
      exit;
   end;
   TempText:='011'+edtParam.Text+'@'+TempStr;
   frmClient.ClntSocket.Socket.SendText(TempText);
   Close;
end;

procedure TfrmParam.FormShow(Sender: TObject);
begin
  edtParam.Text:='';
  edtParam.SetFocus;
end;

procedure TfrmParam.edtParamKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then cob_max.SetFocus;
end;

procedure TfrmParam.cob_maxKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then sbOKClick(sbOk);
end;

end.