�@ �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++

�֘A�T�C�g

�Epapy's softwarelibrary

earthed 2006/08/01(��) 02:22:50

�t�H�[����Ń{�^����`�F�b�N�{�b�N�X���Ƀt�H�[�J�X������ꍇ��
�L�[������ƁAAlt�L�[��ꏏ�ɉ����Ă��Ȃ��Ă�t�H�[����̃R���|�[�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�̃L�[�C�x���g�����ɃA�N�Z�����[�^�[��
�@�\����̂ŁA�L�[�C�x���g�ł͐���ł��܂���B

Syake 2006/08/01(��) 16:10:04

���炵�܂����B
�ȑO�ǂ����Ō����悤�ȁB

procedure WM_KEYDOWN_MSG( var KeyMsg : TWMKEYDOWN ); message CM_CHILDKEY;
��lj����āA�����ŏ������邱�Ƃ��ł������ł��B
procedure TFrom1.WM_KEYDOWN_MSG( var Msg : TWMKEYDOWN );
begin
�@//�����Ŕ���
end;
����Ȃ�A�܂������ŏ����ł������ł��B

Syake 2006/08/01(��) 16:21:53

�ꉞ�A�ȒP��
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

���т��сA�����܂���B
��L�����ł́A[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
������ƃR�[�f�B���O�Ɏ��Ԃ��|���肻���Ȃ̂ŁA������؂��Č��ʂ��������
�܂��B

Created by board of various Programming Library.