unitopciones.pas

Coolvibes 远程控制 Coolvibes 远程控制 Coolvibes 远程控制 Coolvibes 远程控制

unit UnitOpciones;

interface

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

type
  TFormOpciones = class(TForm)
    LabelPuerto: TLabel;
    EditPuerto: TEdit;
    BtnGuardar: TSpeedButton;
    CheckBoxPreguntarAlSalir: TCheckBox;
    LabelPreguntarAlSalir: TLabel;
    LabelNotificacionMsn: TLabel;
    CheckBoxNotificacionMsn: TCheckBox;
    procedure BtnGuardarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormOpciones: TFormOpciones;

implementation

{$R *.dfm}


procedure TFormOpciones.BtnGuardarClick(Sender: TObject);
begin
  if CheckBoxPreguntarAlSalir.Checked then
    FormMain.OnCloseQuery := FormMain.FormCloseQuery
  else
    FormMain.OnCloseQuery := nil;
  if CheckBoxNotificacionMsn.Checked then
    NotificacionMsn := True
  else
    NotificacionMsn := False;
  FormMain.StatusBar.Panels[1].Text := 'Puerto: ' + FormOpciones.EditPuerto.Text;
  FormMain.GuardarArchivoINI();
  Close;
end;

end.