thank you for reading my question

解决方案 »

  1.   

    Controls单元
    其实想知道某函数在哪个单元很简单,在编辑器中输入该函数,然后F1,在帮助里面就可以找到相关的资料,当然包含其实用。
      

  2.   

    但问题是我使用如下代码
    procedure Proenter(Sender:Tobject;var Key:char);
    begin
      if key=#13 then
      begin
        key:=#0;
        sender.perform(Wm_Nextdlgctl,0,0)
      end;end;
    编译时提示"
    [Hint] Upublic.pas(14): Value assigned to 'Sender' never used
    [Error] Upublic.pas(22): Undeclared identifier: 'perform'
    [Fatal Error] Flogin.pas(37): Could not compile used unit 'Upublic.pas'"
    我已经加入了单元use controls
      

  3.   

    up
    Proenter是自定义过程.
      

  4.   

    把sender.perform(Wm_Nextdlgctl,0,0)改成
    self.perform(Wm_Nextdlgctl,0,0);楼主不妨一试
      

  5.   

    楼主不妨改为:
    procedure Proenter(Sender:Tcontrol;var Key:char);
    begin
      if key=#13 then
      begin
        key:=#0;
        sender.perform(Wm_Nextdlgctl,0,0)
      end;end;
    你的意思就是在你的控件响应回车键,sender直接设成Tcontrol即可,设为Tobject,也可以,但是既然是一些不可见的类,相应按键也没什么意义