vsplit.pas

来自「Delphi报表设计器源代码」· PAS 代码 · 共 49 行

unit vsplit;

interface

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

type
  TVSplitForm = class(TForm)
    VSplitCount: TSpinEdit;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure VSplitCountKeyPress(Sender: TObject; var Key: Char);
    procedure VSplitCountKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}

procedure TVSplitForm.VSplitCountKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #27 then
  begin
     key := #0;
     BitBtn2.Click;
  end;
end;

procedure TVSplitForm.VSplitCountKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
  begin
     key := 0;
     BitBtn1.Click;
     exit;
  end;
end;

end.