问两个好象与Delphi无关的问题？

Question

1.好像是GetKeyboardState 
2.控件～

Answer 1

Bool GetKeyboardState(PBYTE lpKeyState)如:function GetNumState:String;
var
  ks: TKeyboardState;
begin
  GetKeyBoardState(ks);
  if odd(ks[VK_NUMLOCK])then
    Result := 'NUM';
end;

Answer 2

我发一个过程给你参考：
procedure tform1.timer1timer(sender:tobject);
begin
  statusbar1.panels[0].text:=timetostr(time);
  if getkeystate(vk_numlock)=1 then
    statusbar1.panels[1].text:='Num lock:ON'
  else
    statusbar1.panels[1].text:='Num lock:OFF';
  if getkeystate(vk_capital)=1 then
    statusbar1.panels[2].text:='Caps lock:ON'
  else
    statusbar1.panels[2].text:='Caps lock:OFF';  
end;

Answer 3

我在TMPPACK中发现一个Winxp组件，只要在窗体中加入，所编写的程序在XP下运行时就是XP的样式，但好象没有源代码(只引用于一个WinXP.pas)，不知是什么原理，各位可以研究研究。

Answer 4

关键是这个：constructor TWinXP.Create(AOwner: TComponent);
var
  I,Instances:Integer;begin
  inherited Create(AOwner);
  if not (AOwner is TForm) then
    raise Exception.Create('Control parent must be a form!');  Instances := 0;
  for I := 0 to Owner.ComponentCount - 1 do
    if (Owner.Components[I] is TWinXP) then Inc(Instances);
  if (Instances > 1) then
    raise Exception.Create('Only one instance of TWinXP allowed on form');
end;

Answer 5

GetKeyState(VK_LCONTROL)与GetKeyBoardState(ks)的区别是什么？
为什么我用
 if odd(ks[VK_LCONTROL])then showmessage('VK_LCONTROL'); 
 时，总是成立，但我没有按下Control左键啊！！！

Answer 6

afeisky：
  GetKeyState(VK_LCONTROL)
  与
  GetKeyBoardState(ks);
  ks[VK_LCONTROL]结果应该是一样的，但开关键是以低位判断，其它键是以高位判断。

Answer 7

torble(金家藩)：
  这段代码只是判断控件在窗体上是否合法放置而已，我找不到更多有用的代码了。

Answer 8

Guoxc(大浪乘风)、yxjjx(孤行者)：
  你们的代码都有用，但我想在KeyDown时有效获取状态好象不行，只有在平时或KeyUp时才有效。无论是控件的Keydown事件还是Application的WM_KEYDOWN消息中都不行。