DELPHI d12 开发的温度计，没有使用第三方控件

DELPHI d12 开发的温度计，没有使用第三方控件，可以控制最低温度和最高温度。 使用方法： var wd:TTemperatureGauge; wd := TTemperatureGauge.Create(Application); wd.Parent := Self; wd.Position.X := 200; wd.Position.Y := 10; wd.Width := 65; wd.Height := 360; wd.CurTemp := 30; wd.MinTemp := -20; wd.MaxTemp := 110; self.TrackBar1.Min := wd.MinTemp; self.TrackBar1.Max := wd.MaxTemp; Self.TrackBar1.Value := wd.CurTemp; Label1.Text := Format('当前温度是：%5.2f',[wd.CurTemp]);