软键盘源代码，你要吗？？？(0分)

做了两天的软键盘，终于可以在2000下运行了，但在98下有点问题!!!!
那位大侠可以能找出其中原因吗!!!!

//-------unit code
unit vkey;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, ExtCtrls, StdCtrls;

type
TFrmsoftkey = class(TForm)
SBchar: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
SpeedButton19: TSpeedButton;
SpeedButton20: TSpeedButton;
SpeedButton21: TSpeedButton;
SpeedButton22: TSpeedButton;
SpeedButton23: TSpeedButton;
SpeedButton24: TSpeedButton;
SpeedButton25: TSpeedButton;
SpeedButton26: TSpeedButton;
SpeedButton27: TSpeedButton;
SpeedButton28: TSpeedButton;
SpeedButton29: TSpeedButton;
SpeedButton30: TSpeedButton;
SpeedButton31: TSpeedButton;
SpeedButton32: TSpeedButton;
SpeedButton33: TSpeedButton;
SpeedButton34: TSpeedButton;
SpeedButton35: TSpeedButton;
SpeedButton36: TSpeedButton;
SpeedButton37: TSpeedButton;
SpeedButton38: TSpeedButton;
SpeedButton39: TSpeedButton;
SpeedButton40: TSpeedButton;
SpeedButton41: TSpeedButton;
SpeedButton42: TSpeedButton;
SpeedButton43: TSpeedButton;
SpeedButton44: TSpeedButton;
SpeedButton45: TSpeedButton;
SpeedButton46: TSpeedButton;
SpeedButton47: TSpeedButton;
SpeedButton48: TSpeedButton;
SpeedButton60: TSpeedButton;
SpeedButton65: TSpeedButton;
SBMin: TSpeedButton;
Lblcaps: TLabel;
Lbldot: TLabel;
Bevel1: TBevel;
procedure WMActivate(var Message: TMessage); message WM_ACTIVATE;
procedure SBMinClick(Sender: TObject);
procedure KeyMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SBcharClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure capsClick(Sender: TObject);
procedure sysClick(Sender: TObject);
private
procedure Sendkeys(Hz:Longint;state:Longint=0);
{ Private declarations }
public
{ Public declarations }
HActWin,Hself:Longint;
end;

var
Frmsoftkey: TFrmsoftkey;

implementation


{$R *.DFM}


procedure TFrmsoftkey.WMActivate(var Message: TMessage);
begin
if Message.wParam = WA_CLICKACTIVE then //wParamLo
begin
//SetActiveWindow(message.lParam);
if (HActWin<>message.lParam) and (message.lParam<>Hself) then
HActWin:=message.lParam;
end;
end;

procedure TFrmsoftkey.SBMinClick(Sender: TObject);
begin
close;
end;

procedure TFrmsoftkey.keyMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;
end;

procedure TFrmsoftkey.SBcharClick(Sender: TObject);
var
S:string;
begin
SetActiveWindow(HActWin);
s:= Tbutton(Sender).Caption;
SendKeys(ord(s[1]));
//SetActiveWindow(HActWin);
end;

procedure TFrmsoftkey.Sendkeys(Hz:Longint;state:longint=0);
var
focushld,windowhld:hwnd;
threadld:dword;
begin
windowhld:=GetForegroundWindow;
threadld:=GetWindowThreadProcessId(Windowhld,nil); //Windowhld
AttachThreadInput(GetCurrentThreadId,threadld,true);
Focushld:=getfocus;
AttachThreadInput(GetCurrentThreadId,threadld,false);
if focushld = 0 then Exit;
postMessage(focushld, WM_IME_CHAR, Hz,state);

end;

procedure TFrmsoftkey.FormCreate(Sender: TObject);
begin
Hself:=Handle ;
end;

procedure TFrmsoftkey.capsClick(Sender: TObject);
var
i,t,c:Integer;
const
uplist:string='~!@#$%^&*()_+|QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM<>?';
dolist:string='`1234567890-=/qwertyuiop[]asdfghjkl;''zxcvbnm,./';
begin
c:=ComponentCount -1;
for i :=0 to c do
begin
if (Components is TSpeedButton) and (Length(TSpeedButton(Components).Caption)=1) then
if Tag=0 then
begin
t:=pos(TSpeedButton(Components).Caption,dolist);
if t<>0 then
if copy(uplist,t,1)='&' then
TSpeedButton(Components).Caption:='&&'
else
TSpeedButton(Components).Caption:=copy(uplist,t,1);
end
else
begin
t:=pos(TSpeedButton(Components).Caption,uplist);
if t<>0 then
TSpeedButton(Components).Caption:=copy(dolist,t,1);

end;
end;
//要加入用SetKeyboardState设置键盘Caps状态

if tag= 1 then
begin
SpeedButton7.Caption:='7';
lbldot.Font.Color:=clBlack;
end
else
lbldot.Font.Color:=clYellow;
Tag:=(Tag+1) mod 2;

end;

procedure TFrmsoftkey.sysClick(Sender: TObject);
var
key:longint;
begin
if Tbutton(Sender).Caption='←' then
key:=$8;
if Tbutton(Sender).Caption='Tab' then
key:=$9;
SetActiveWindow(HActWin);
SendKeys(key);
end;

end.

//------------frm code-------------

object Frmsoftkey: TFrmsoftkey
Left = 261
Top = 224
Cursor = crSizeAll
BorderStyle = bsNone
Caption = 'Frmsoftkey'
ClientHeight = 116
ClientWidth = 414
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 0
Top = 0
Width = 414
Height = 116
Align = alClient
Shape = bsFrame
Style = bsRaised
end
object Lbldot: TLabel
Left = 347
Top = 88
Width = 12
Height = 13
Caption = '●'
Transparent = True
end
object SBchar: TSpeedButton
Left = 2
Top = 2
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '`'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton1: TSpeedButton
Left = 30
Top = 2
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '1'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton2: TSpeedButton
Left = 58
Top = 2
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '2'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton3: TSpeedButton
Left = 86
Top = 2
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '3'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton4: TSpeedButton
Left = 114
Top = 2
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '4'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton5: TSpeedButton
Left = 142
Top = 2
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '5'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton6: TSpeedButton
Left = 170
Top = 2
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '6'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton7: TSpeedButton
Left = 198
Top = 2
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '7'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton8: TSpeedButton
Left = 226
Top = 2
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '8'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton9: TSpeedButton
Left = 254
Top = 2
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '9'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton10: TSpeedButton
Left = 282
Top = 2
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '0'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton11: TSpeedButton
Left = 310
Top = 2
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '-'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton12: TSpeedButton
Left = 338
Top = 2
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton13: TSpeedButton
Left = 383
Top = 30
Width = 29
Height = 28
Cursor = crHandPoint
Caption = '/'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton14: TSpeedButton
Left = 366
Top = 2
Width = 46
Height = 28
Cursor = crHandPoint
Caption = '←'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = sysClick
end
object SpeedButton15: TSpeedButton
Left = 47
Top = 30
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'q'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton16: TSpeedButton
Left = 75
Top = 30
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'w'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton17: TSpeedButton
Left = 103
Top = 30
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'e'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton18: TSpeedButton
Left = 131
Top = 30
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'r'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton19: TSpeedButton
Left = 159
Top = 30
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 't'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton20: TSpeedButton
Left = 187
Top = 30
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'y'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton21: TSpeedButton
Left = 215
Top = 30
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'u'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton22: TSpeedButton
Left = 243
Top = 30
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'i'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton23: TSpeedButton
Left = 271
Top = 30
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'o'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton24: TSpeedButton
Left = 299
Top = 30
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'p'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton25: TSpeedButton
Left = 327
Top = 30
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '['
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton26: TSpeedButton
Left = 355
Top = 30
Width = 28
Height = 28
Cursor = crHandPoint
Caption = ']'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton27: TSpeedButton
Left = 56
Top = 58
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'a'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton28: TSpeedButton
Left = 84
Top = 58
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 's'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton29: TSpeedButton
Left = 112
Top = 58
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'd'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton30: TSpeedButton
Left = 140
Top = 58
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'f'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton31: TSpeedButton
Left = 168
Top = 58
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'g'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton32: TSpeedButton
Left = 196
Top = 58
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'h'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton33: TSpeedButton
Left = 224
Top = 58
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'j'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton34: TSpeedButton
Left = 252
Top = 58
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'k'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton35: TSpeedButton
Left = 280
Top = 58
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'l'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton36: TSpeedButton
Left = 308
Top = 58
Width = 28
Height = 28
Cursor = crHandPoint
Caption = ';'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton37: TSpeedButton
Left = 336
Top = 58
Width = 28
Height = 28
Cursor = crHandPoint
Caption = #39
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton38: TSpeedButton
Left = 63
Top = 86
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'z'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton39: TSpeedButton
Left = 91
Top = 86
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'x'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton40: TSpeedButton
Left = 119
Top = 86
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'c'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton41: TSpeedButton
Left = 147
Top = 86
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'v'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton42: TSpeedButton
Left = 175
Top = 86
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'b'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton43: TSpeedButton
Left = 203
Top = 86
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'n'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton44: TSpeedButton
Left = 231
Top = 86
Width = 28
Height = 28
Cursor = crHandPoint
Caption = 'm'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton45: TSpeedButton
Left = 259
Top = 86
Width = 28
Height = 28
Cursor = crHandPoint
Caption = ','
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton46: TSpeedButton
Left = 287
Top = 86
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '.'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton47: TSpeedButton
Left = 315
Top = 86
Width = 28
Height = 28
Cursor = crHandPoint
Caption = '/'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SBcharClick
end
object SpeedButton48: TSpeedButton
Left = 2
Top = 30
Width = 45
Height = 28
Cursor = crHandPoint
Caption = 'Tab'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object SpeedButton60: TSpeedButton
Left = 2
Top = 58
Width = 54
Height = 28
Cursor = crHandPoint
Caption = 'Caps'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = capsClick
end
object SpeedButton65: TSpeedButton
Left = 2
Top = 86
Width = 61
Height = 28
Cursor = crHandPoint
Hint = '空格键'
Caption = ' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SBcharClick
end
object SBMin: TSpeedButton
Left = 364
Top = 58
Width = 48
Height = 56
Cursor = crHandPoint
Caption = '关'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
OnClick = SBMinClick
end
object Lblcaps: TLabel
Left = 342
Top = 87
Width = 22
Height = 26
Alignment = taCenter
AutoSize = False
Caption = 'Cap'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
Layout = tlBottom
OnMouseDown = KeyMouseDown
end
end

没人知道吗？

看看[]

算了!