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