oracle基础知识讲义

				unit unitFrmMain;
				
				interface
				
				uses
				  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
				
				type
				  TForm1 = class(TForm)
				    procedure FormKeyDown(Sender: TObject; var Key: Word;
				      Shift: TShiftState);
				  private
				    { Private declarations }
				  public
				    { Public declarations }
				  end;
				var
				  Form1: TForm1;
				  keytp: string;
				implementation
				{$R *.DFM}
				procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
				  Shift: TShiftState);
				begin
				  //是否按下ALT键，只接收字符
				  if (shift = [ssALT]) and (key >= $41) and (key 				    begin
				      keytp := keytp + chr(key);
				      if keytp = 'ABC' then
				        begin
				          showmessage(' WELLCOME');
				        end;
				    end;
				end;
				end.