ソス@ソスソスソスAソスNソスZソスソスソスソスソス[ソス^ソス[ソスLソス[ソスノつゑソスソスソス
|
ソスEC/C++
ソスEDelphi
ソスEVisual BasicソスソスソスSソスソス
ソス@(VB2-VB6ソスソス.NETソスソスソスp)
ソスEVisual Basic(VB2-VB6)
ソスEVisual Basic .NET
ソスEVisual C++
ソスEpapy's softwarelibrary
ソスtソスHソス[ソスソスソスソスナボソス^ソスソスソスソス`ソスFソスbソスNソス{ソスbソスNソスXソスソスソスノフソスHソス[ソスJソスXソスソスソスソスソスソス鼾ソスソス
ソスLソス[ソスソスソスソスソスソスニ、AltソスLソス[ソスソス齒擾ソスノ会ソスソスソスソストゑソスソスネゑソスソストゑソスtソスHソス[ソスソスソスソスフコソスソスソス|ソス[ソスlソスソスソスgソスソス
ソスソスソス闢厄ソストゑソスソスAソスNソスZソスソスソスソスソス[ソス^ソス[ソスLソス[ソスソスソスソスソスソスソスソスソストゑソスソスワゑソスソスワゑソスソスB
ソスソスソスフ鯉ソスソスロゑソスソスソスソスソスソスノはどのようソスノゑソスソスソスソスソスヌゑソスソスフでゑソスソス蛯、ソスソスソスH
OnKeyDownソスソスOnKeyUpソスソスTShiftStateソスナ費ソスソス閧ウソス黷スソス轤「ソスソスソスソスソスナゑソスソス蛯、ソスソスソスH
ソスtソスHソス[ソスソスソスソスRソスソスソス|ソス[ソスlソスソスソスgソスフキソス[ソスCソスxソスソスソスgソスソスソスソスソスノアソスNソスZソスソスソスソスソス[ソス^ソス[ソスソス
ソス@ソス¥ソスソスソスソスフで、ソスLソス[ソスCソスxソスソスソスgソスナは撰ソスソスソスナゑソスソスワゑソスソスソスB
ソスソスソス轤オソスワゑソスソスソスソスB
ソスネ前ソスヌゑソスソスソスソスナ鯉ソスソスソスソス謔、ソスネ。
procedure WM_KEYDOWN_MSG( var KeyMsg : TWMKEYDOWN ); message CM_CHILDKEY;
ソスソスヌ会ソスソスソスソスト、ソスソスソスソスソスナ擾ソスソスソスソスソスソス驍アソスニゑソスソスナゑソスソスソスソスソスソスナゑソスソスB
procedure TFrom1.WM_KEYDOWN_MSG( var Msg : TWMKEYDOWN );
begin
ソス@//ソスソスソスソスソスナ費ソスソスソス
end;
ソスソスソスソスネゑソスAソスワゑソスソスソスソスソスソスナ擾ソスソスソスソスナゑソスソスソスソスソスソスナゑソスソスB
ソス皷橸ソスAソスネ単ソスソス
Button1.Caption := XXXX(&A)ソスソス
procedure TfrmMain.WMKEYDOWNMSG(var Msg: TWMKEYDOWN);
begin
if Button1.Focused = True then
begin
with Msg do
begin
if CharCode = 65 then
begin
Result := 1;
end;
end;
end;
inherited;
end;
ソスソスソスムゑソスソスム、ソスソスソスソスソスワゑソスソスソスB
ソスソスLソスソスソスソスソスナは、[Alt]Keyソスソスソスソスソスソストゑソスソス骼橸ソスソスソスソスソスソスソスソスソスワゑソスソスB
function WndProc(var M: TMessage):Boolean;
private
{ Private ソス骭セ }
FShiftKey :TShiftState;
procedure WM_KEYDOWN_MSG( var KeyMsg : TWMKEYDOWN ); message CM_CHILDKEY;
{ソスソス}
procedure TFrom1.FormCreate(Sender: TObject);
begin
Application.HookMainWindow(WndProc);
end;
function TFrom1.WndProc(var M: TMessage):Boolean;
begin
FShiftKey := KeyDataToShiftState(TWMKey(m).KeyData);
end;
procedure TForm1.WMKEYDOWNMSG(var Msg: TWMKEYDOWN);
begin
if Button1.Focused = True then
begin
with Msg do
begin
if (CharCode in [65..90]) and ((FShiftKey <> [ssAlt]) then
begin
Result := 1;
end;
end;
end;
inherited;
end;
ソスナゑソスソスB
ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスソスソスソスソスソスニコソス[ソスfソスBソスソスソスOソスノ趣ソスソスヤゑソスソス|ソスソスソス閧サソスソスソスネので、ソスソスソスソスソスソスリゑソスソスト鯉ソスソスハゑソスソスソスソスソスソスソスソス
ソスワゑソスソスB