sjcustomproperty.pas

来自「供水营销打印程序源码」· PAS 代码 · 共 30 行

unit SJCustomProperty;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SJCustomFrm, PropStorageEh, ExtCtrls, StdCtrls, cxButtons,
  cxLookAndFeelPainters;

type
  TSJCustomPropertyForm = class(TSJCustomForm)
    TitlePanel: TPanel;
    Bevel1: TBevel;
    btnOK: TcxButton;
    btnCancel: TcxButton;
  private
    FNewRecord: Boolean;
  public
    property NewRecord: Boolean read FNewRecord write FNewRecord default False;
  end;

var
  SJCustomPropertyForm: TSJCustomPropertyForm;

implementation

{$R *.dfm}

end.