uframegrade.pas

来自「Delphi学籍管理程序,以Delphi7.0为前台开发工具」· PAS 代码 · 共 56 行

unit uFrameGrade;

interface

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

type
  TFrameGrade = class(TFrame)
    Label1: TLabel;
    Label2: TLabel;
    lbClasses: TListBox;
    sbAdd: TSpeedButton;
    sbDelete: TSpeedButton;
    clbGrades: TCheckListBox;
    procedure sbAddClick(Sender: TObject);
    procedure sbDeleteClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetClassesEnabled(GradeEnabled: Boolean);
  end;

implementation

uses uDM;

{$R *.dfm}

procedure TFrameGrade.sbAddClick(Sender: TObject);
const
  ClassCapion = '%d班';
begin
  lbClasses.Items.Append(format(ClassCapion, [lbClasses.Count+1]));
end;

procedure TFrameGrade.sbDeleteClick(Sender: TObject);
begin
  lbClasses.Items.Delete(lbClasses.Items.Count-1);
end;

procedure TFrameGrade.SetClassesEnabled(GradeEnabled: Boolean);
begin
  lbClasses.Enabled := GradeEnabled;
  sbAdd.Enabled := GradeEnabled;
  sbDelete.Enabled := GradeEnabled;
  if GradeEnabled then
    lbClasses.Font.Color := clWindowText
  else
    lbClasses.Font.Color := clBtnShadow;
end;

end.