奇怪了------为什么总提示perform未定义?

Question

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,  Buttons, ExtCtrls;procedure Tab( var Key: Char);
begin
    if key=#13 then   {   判断是按执行键}  
    Begin    
        key:=#0;
        perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}  
    end   
end;

Answer 1

PERFORM是DELPHI封裝針對於有WINCONTROL的一個過程。比如： Edit1.perform;
 樓上建議： ActiveControl.perform