optionsform.pas

Delphi树和酒店式的框架

unit OptionsForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, StdCtrls, ComCtrls;

type
  TFrmOptions = class(TForm)
    BtnOK: TButton;
    BtnCancel: TButton;
    PgeOptions: TPageControl;
    TabWindow: TTabSheet;
    TabTips: TTabSheet;
    GrpAutoSave: TGroupBox;
    ChkWinPos: TCheckBox;
    ChkWinSize: TCheckBox;
    GrpStartAt: TGroupBox;
    OptRoot: TRadioButton;
    OptLastSel: TRadioButton;
    OptSpecific: TRadioButton;
    TvwStartAtTips: TTreeView;
    procedure FormCreate(Sender: TObject);
    procedure StartAtClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmOptions: TFrmOptions;

implementation

uses
  TipMainForm;

{$R *.DFM}

procedure TFrmOptions.FormCreate(Sender: TObject);
begin
  PgeOptions.ActivePage := TabWindow;
  TvwStartAtTips.Items.Assign( FrmTipExplorer.TvwTips.Items );
end;

procedure TFrmOptions.StartAtClick(Sender: TObject);
begin
  TvwStartAtTips.Enabled := Sender = OptSpecific;
end;

end.