判断focused属性如: if Edit1.Focused then showmessage('a') else showmessage('b')然后再form1.ComponentCount属性一个一个判断哪个focused是真得就可以了
var I:integer; begin for i:=0 to form1.ComponentCount-1 do begin if (form1.Components[i] is tedit ) then begin if tedit(form1.Components[i]).Focused then ...... end; end;end;
showmessage('a')
else
showmessage('b')然后再form1.ComponentCount属性一个一个判断哪个focused是真得就可以了
begin
for i:=0 to form1.ComponentCount-1 do
begin
if (form1.Components[i] is tedit ) then
begin
if tedit(form1.Components[i]).Focused then
......
end;
end;end;