在unigui中为组件添加hint

//改变hint的样式
procedure TUniForm1.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;