有没有什么控件或者办法当用户用tab或者回车时按照控件顺序切换并且有颜色来提示
有没有什么控件或者办法当用户用tab或者回车时按照控件顺序切换并且有颜色来提示
如果按tab或回车会使 edit1切换到edit2,再edit3,按顺序来,获得焦点时edit为绿色,离开时为红色
一个个设置很麻烦的,有没有批量或者控件的办法来设置
[解决办法]
我也是一个一个设置的,先关注一下你的这个帖子
[解决办法]
edit1.taborder属性设置次序,就可以实现TAB按自定顺序跳转
[解决办法]
procedure TForm1.edt3Enter(Sender: TObject);beginTEdit(Sender).Color := clRed;end;
[解决办法]
procedure TfrmFirstForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if (ssAlt in Shift) or (ssCtrl in Shift) then Exit; if Key=13 then begin ActiveControl.Color:=clRed; //此处需要判断是否是DBGrid等这样的控件,不需要变色等等 if ActiveControl is TDBGrid then Exit; FindNextControl(ActiveControl,True,True,False).SetFocus; ActiveControl.Color:=clGreen; end;end;
[解决办法]
需要一个功能就装一种控件,时间长了会很吓人
[解决办法]
我的变颜色方法是集中到一个方法中统一由每个Edit控件分别调用
[解决办法]
rz edit 的 focuscolor属性,设置为什么颜色,得到焦点后就显示什么颜色。