comsysoption.pas

来自「IT业进销存管理系统源代码Delphi」· PAS 代码 · 共 50 行

unit ComSysOption;

interface

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

type
  TfrmComSysOption = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    DefBtn: TButton;
    cPageControl: TPageControl;
    cTab1: TTabSheet;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure DefBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmComSysOption: TfrmComSysOption;

implementation

{$R *.DFM}

procedure TfrmComSysOption.OKBtnClick(Sender: TObject);
begin
  ShowMessage('Save');
  Close;
end;

procedure TfrmComSysOption.DefBtnClick(Sender: TObject);
begin
  if Application.MessageBox('确定把所有设置设成默认值吗?',
    '系统设置', MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = IDNO then exit;
  ShowMessage('Def');
end;

procedure TfrmComSysOption.CancelBtnClick(Sender: TObject);
begin
  Close;
end;

end.