unitopciones.pas

来自「远程控制软件」· PAS 代码 · 共 46 行

unit UnitOpciones;

interface

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

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

var
  FormOpciones: TFormOpciones;

implementation

{$R *.dfm}


procedure TFormOpciones.BtnGuardarClick(Sender: TObject);
begin
  if CheckBoxMinimizeToTray.Checked then
     Application.OnMinimize := FormMain.MinimizeToTrayClick
  else
     Application.OnMinimize := Nil;
  FormMain.StatusBar.Panels[1].Text := 'Port: ' + FormOpciones.EditPuerto.Text;
  FormMain.GuardarArchivoINI();
  Close;
end;



end.