basef.pas

极具实用价值的文件管理系统

{ *********************************************************************** }
{ Unit Name: BaseF                                                       
{ Purpose: BaseF
{ Author: Cyclone                                                          
{ History:                                                                
{         2004-6-5 22:57:07 Create the function                                  
{ *********************************************************************** }

unit BaseF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DBCtrls, StdCtrls, ComCtrls, WinSkinData;

type
  TOperateType = (otInsert, otEdit);

  TfmBase = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
    OperType: TOperateType;
  end;

var
  fmBase: TfmBase;

implementation

{$R *.dfm}

procedure TfmBase.FormCreate(Sender: TObject);
begin
  //
end;

procedure TfmBase.FormActivate(Sender: TObject);
begin
  //
end;

procedure TfmBase.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //
end;

procedure TfmBase.FormDestroy(Sender: TObject);
begin
  //
end;

procedure TfmBase.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then      //ESC
    Close
  else if Key = VK_RETURN then //ENTER
  begin
    if ActiveControl is TDBGrid then
    begin
      with TDBGrid(ActiveControl) do
      begin
        if Columns.Count > 0 then
        begin
          if SelectedIndex < Columns.Count - 1 then
            SelectedIndex := SelectedIndex + 1
          else
          begin
            if (DataSource <> nil) and (DataSource.DataSet <> nil) and (not DataSource.DataSet.Eof) then
              DataSource.DataSet.Next;
            SelectedIndex := 0;
          end;
        end;
      end;
    end
    else if not ((ActiveControl is TCustomMemo) or (ActiveControl is TListView) or (ActiveControl is TTreeView)) then //OTHER
    begin
      SelectNext(ActiveControl, True, True);
    end;
  end;
end;

end.