请问THotKey控件怎么用(100分)

我想用RegisterHotKey设置系统热键，热键是从THotKey中读出，而不是写死在程序中，请问<br>应该读THotKey中的哪个属性呀，怎么读呢，请告诉我，谢谢

THotKey.HotKey 他是 Tshortcut 类型，可以直接赋给具有shortcut属性的其他控件

我已经解决了，你虽然理解错了我的意思，但我还是给你加分吧，谢谢你回答我的问题，并附上<br>我的解决方法，供大家参考<br>&nbsp; &nbsp; ShortCutToKey(SysHotKey.HotKey, iKey, ShirtKey);<br>&nbsp; &nbsp; Shirt := ByteReserve(Word((SysHotKey.HotKey and $F000) shr 8));<br>&nbsp; &nbsp; try<br>&nbsp; &nbsp; &nbsp; RegisterHotKey(MainForm.Handle,SysHotKeyID,Shirt,Cardinal(Chr(iKey)));<br>&nbsp; &nbsp; except<br>&nbsp; &nbsp; &nbsp; OKMsg('注册系统热键失败');<br>&nbsp; &nbsp; &nbsp; exit;<br>&nbsp; &nbsp; end;<br>function ByteReserve(Value: Word):Word;<br>var<br>&nbsp; buf:Byte;<br>&nbsp; m: Integer;<br>begin<br>&nbsp; Result := 0;<br>&nbsp; for m:=0 to 7 do<br>&nbsp; begin<br>&nbsp; &nbsp; buf := Byte((Value shr m) and $01);<br>&nbsp; &nbsp; Result := Result or (buf shl (7-m));<br>&nbsp; end;<br>end;<br>