uniGUI学习之自定义Hint(74)

默认Hint样式

procedure TMainForm.UniFormShow(Sender: TObject);
var i: Integer;
begin
  for i := 0 to Self.ControlCount - 1 do
  begin
    with TUniFormControl(Self.Controls[i]) do
    begin
      if Hint <> '' then
      begin
        ShowHint := False;
        UniSession.AddJS
          ('setTimeout(''Ext.create("Ext.tip.ToolTip",{anchor:"top",anchorOffset:5,trackMouse:true,autoHide:true, '
          //
          + 'closable:false,draggable:false,target:"' + jsname + '_id",html:"' +
          Hint + '",title:"提示"});'',1);')
      end;
    end;
  end;
end;