摘要： //改变hint的样式procedure TUniForm1.UniFormShow(Sender: TObject);var i: Integer;begin for I := 0 to Self.ControlCount - 1 do begin with TUniFormControl(Sel 阅读全文