settings.pas

这是一个delphi的例程

unit Settings;

interface

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

type
  TfrmSettings = class(TForm)
    btnBrowse: TSpeedButton;
    btnCancel: TBitBtn;
    btnOK: TBitBtn;
    bvBottom: TBevel;
    cbAutoEnableAlarm: TCheckBox;
    cbAutoSaveAlarms: TCheckBox;
    edAlarmSound: TEdit;
    gbCloseSettings: TGroupBox;
    gbGeneralSettings: TGroupBox;
    gbStartSettings: TGroupBox;
    lblAlarmSound: TLabel;
    odAlarmSound: TOpenDialog;
    pnlBottom: TPanel;
    pnlMain: TPanel;
    procedure FormShow(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnBrowseClick(Sender: TObject);
  private
  public
  end;

var
  frmSettings: TfrmSettings;

implementation

uses Alarm, Alarms, Main;

{$R *.dfm}

procedure TfrmSettings.FormShow(Sender: TObject);
begin
  // Reading Settings...
  cbAutoEnableAlarm.Checked := TheSettings.AutoEnable;
  cbAutoSaveAlarms.Checked := TheSettings.SaveAfterClose;
  edAlarmSound.Text := TheSettings.AlarmSound;
end;

//=============================================================================
//=============================================================================

procedure TfrmSettings.btnBrowseClick(Sender: TObject);
begin
  with odAlarmSound do begin
    if (Execute) then begin
      Title := 'Browse for Alarm Sound...';
      edAlarmSound.Text := frmMain.GetShortName(Filename);
    end; {if}
  end; {with}
end;

//=============================================================================
//=============================================================================

procedure TfrmSettings.btnOKClick(Sender: TObject);
begin
  // Saving Settings...
  TheSettings.AutoEnable := cbAutoEnableAlarm.Checked;
  TheSettings.SaveAfterClose := cbAutoSaveAlarms.Checked;
  TheSettings.AlarmSound := edAlarmSound.Text;
end;

end.