截获Tab键VK_tab_OnKeyUp

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




posted @ 2012-05-26 08:14  XE2011  阅读(184)  评论(0)  编辑  收藏  举报