功能说明: procedure TForm1.Edit1KeyUp(Sender: TObject;var Key: Word;Shift: TShiftState);begin if Key= VK_tab then Showmessage('VK_TAB');end;