但问题是我使用如下代码 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
楼主不妨改为: 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,也可以,但是既然是一些不可见的类,相应按键也没什么意义
其实想知道某函数在哪个单元很简单,在编辑器中输入该函数,然后F1,在帮助里面就可以找到相关的资料,当然包含其实用。
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
Proenter是自定义过程.
self.perform(Wm_Nextdlgctl,0,0);楼主不妨一试
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,也可以,但是既然是一些不可见的类,相应按键也没什么意义