uniGUI之uniEdit(23)

主要新加属性；

a]EmptyText在没有文本里显示的背景文本。

b]作为其他控件的编辑输入控件。

i]加个阴影显示其他有焦点的控件也有效

a]EmptyText在没有文本里显示的背景文本。

UniEdit1.EmptyText:='背景文字';

uniGUI之uniEdit(23)

b]作为其他控件的编辑输入控件。

  UniDBGrid1.Columns[1].Filtering.Editor := UniEdit1;   //十过滤 编辑控件 放在hidenPanel
  UniDBGrid1.Columns[1].Editor := UniEdit1;   //双击 编辑控件 放在hidenPanel

  UniEdit1.CharEOL:=#13;  //表示回车 确定 开始  这很重要

c]ClearButton清空按钮

uniGUI之uniEdit(23)

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
UniEdit1.ClearButton:=true;
end;

d]左边显示文本

uniGUI之uniEdit(23)

 uniEdit1.FieldLabel:='姓名';        //文本值
 uniEdit1.FieldLabelAlign:=laRight;  //靠右显示
 //uniEdit1.FieldLabelSeparator:=':';//分隔符，默认为 :  可以不设置
 uniEdit1.FieldLabelWidth:=40        //文本宽度

e]回车触发事件CharEOL:=#13

uniGUI之uniEdit(23)

然后在OnKeyPress写事件

procedure TMainForm.UniEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  UniMemo1.Lines.Add(UniEdit1.Text);
end;

//等价于,例子D:\Program Files\FMSoft\Framework\uniGUI\Demos\Desktop\AllFeaturesDemo Form Controls/CharEOL 
procedure TMainForm.UniEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if   (Key = #13) then    begin
     UniMemo1.Lines.Add(UniEdit1.Text);
  end; 
end;

f]空白内容，红色提示

uniGUI之uniEdit(23)

var
  tmpColor: TColor;
begin
  if Trim(UniEdit1.Text) = '' then
  begin
    tmpColor := UniEdit1.Color;
    UniEdit1.Color := clRed;
    MessageDlg('【设备型号】 不能为空！', mtConfirmation, [mbOK],
      procedure(Sender: TComponent; Res: Integer)
      begin
        if Res = mrOK then
          UniEdit1.Color := tmpColor;
      end);

    Exit;
  end;
end;

h]右边感叹号提示必填

uniGUI之uniEdit(23)

1】设计时uniEdit1.text必须有，就是要经历过一个有值再无值的过程触动。

2】在

procedure TMainForm.UniFormAfterShow(Sender: TObject);
begin
uniedit1.Text:='';//将文本清空
end;

uniGUI之uniEdit(23)

function beforeInit(sender, config)
{  Ext.apply(sender,{allowBlank:false,vtype:'',msgTarget : 'side'});}

function beforeInit(sender, config)
{
  Ext.apply(sender,{allowBlank:false,vtype:'email',msgTarget : 'side'});
}