fetch.pas

来自「ODAC 5.7.0.28」· PAS 代码 · 共 50 行

unit Fetch;

interface

uses
{$IFDEF LINUX}
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls,
  QDBCtrls, QComCtrls, QExtCtrls, QGrids, QDBGrids, Variants, OdacClx;
{$ELSE}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, ToolWin, ComCtrls, OdacVcl;
{$ENDIF}

type
  TFetchForm = class(TForm)
    Label1: TLabel;
    btCancel: TButton;
    procedure btCancelClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FetchForm: TFetchForm;

implementation

{$R *.nfm}

procedure TFetchForm.btCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TFetchForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
{$IFNDEF LINUX}
  if Key = VK_ESCAPE then
    Close;
{$ENDIF}
end;

end.