Delphi 4 Bible/Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso/source/KeyMouse/Tab.pas

Pascal/Delphi Source File | 1998-02-12 | 263b | 14 lines

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  S: string;
begin
  if Key = vk_Tab then
  begin
    S := 'Tab Key Pressed';
    if ssShift in Shift then
      S := 'Shift-' + S;
    ShowMessage(S);
  end;
end;