ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

earthed 2006/08/01(ｿｽｿｽ) 02:22:50

ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾅボｿｽ^ｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽ
ｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾆ、AltｿｽLｿｽ[ｿｽｿｽ齒擾ｿｽﾉ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽ
ｿｽｿｽｿｽ闢厄ｿｽﾄゑｿｽｿｽAｿｽNｿｽZｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽ[ｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾛゑｿｽｿｽｿｽｿｽｿｽｿｽﾉはどのようｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

Syake 2006/08/01(ｿｽｿｽ) 11:43:33

OnKeyDownｿｽｿｽOnKeyUpｿｽｿｽTShiftStateｿｽﾅ費ｿｽｿｽ閧ｳｿｽ黷ｽｿｽ轤｢ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

earthed 2006/08/01(ｿｽｿｽ) 12:47:35

ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌキｿｽ[ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾉアｿｽNｿｽZｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽ[ｿｽｿｽ
ｿｽ@ｿｽ¥ｿｽｿｽｿｽｿｽﾌで、ｿｽLｿｽ[ｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅは撰ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB

Syake 2006/08/01(ｿｽｿｽ) 16:10:04

ｿｽｿｽｿｽ轤ｵｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾈ前ｿｽﾇゑｿｽｿｽｿｽｿｽﾅ鯉ｿｽｿｽｿｽｿｽ謔､ｿｽﾈ。

procedure WM_KEYDOWN_MSG( var KeyMsg : TWMKEYDOWN ); message CM_CHILDKEY;
ｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
procedure TFrom1.WM_KEYDOWN_MSG( var Msg : TWMKEYDOWN );
begin
ｿｽ@//ｿｽｿｽｿｽｿｽｿｽﾅ費ｿｽｿｽｿｽ
end;
ｿｽｿｽｿｽｿｽﾈゑｿｽAｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

Syake 2006/08/01(ｿｽｿｽ) 16:21:53

ｿｽ皷橸ｿｽ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;

Syake 2006/08/01(ｿｽｿｽ) 17:10:16

ｿｽｿｽｿｽﾑゑｿｽｿｽﾑ、ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ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

earthed 2006/08/01(ｿｽｿｽ) 23:29:30

ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾆコｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽﾉ趣ｿｽｿｽﾔゑｿｽｿｽ|ｿｽｿｽｿｽ閧ｻｿｽｿｽｿｽﾈので、ｿｽｿｽｿｽｿｽｿｽｿｽﾘゑｿｽｿｽﾄ鯉ｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.