home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / KeyMouse / Tab.pas < prev    next >
Pascal/Delphi Source File  |  1998-02-12  |  263b  |  14 lines

  1. procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  2.   Shift: TShiftState);
  3. var
  4.   S: string;
  5. begin
  6.   if Key = vk_Tab then
  7.   begin
  8.     S := 'Tab Key Pressed';
  9.     if ssShift in Shift then
  10.       S := 'Shift-' + S;
  11.     ShowMessage(S);
  12.   end;
  13. end;
  14.