editbm1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit editbm1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dxCntner, dxEditor, dxEdLib, StdCtrls, Buttons;

type
  Teditbm = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    dxEdit1: TdxEdit;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  editbm: Teditbm;

implementation

{$R *.DFM}

procedure Teditbm.FormActivate(Sender: TObject);
begin
  editbm.dxEdit1.SetFocus;
  editbm.dxEdit1.SelectAll;
end;

procedure Teditbm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cafree;
end;

end.