|
ｿｽ@ｿｽｿｽｿｽ}ｿｽEｿｽXｿｽzｿｽCｿｽ[ｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽｿｽCtrlｿｽLｿｽ[ｿｽﾌ組ｿｽﾝ搾ｿｽｿｽせｿｽｿｽｿｽoｿｽﾅ誤動ｿｽｿｽ
|
ｿｽ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
ｿｽEｿｽHｿｽｿｽｿｽX 2009/01/30(ｿｽｿｽ) 14:10:57
ｿｽWｿｽLｿｽﾌ鯉ｿｽｿｽA
ｿｽ}ｿｽEｿｽXｿｽzｿｽCｿｽ[ｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽﾉ、ctrlｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽ分ゑｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽiDelphi IDEｿｽﾆゑｿｽｿｽﾅゑｿｽshiftｿｽActrlｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾅはエｿｽfｿｽBｿｽ^ｿｽﾌマｿｽEｿｽXｿｽzｿｽCｿｽ[ｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽがｿｽﾙなゑｿｽ謔､ｿｽﾉ。ｿｽj
ｿｽﾆゑｿｽｿｽがRadioGroupｿｽｿｽuｿｽｿｽｿｽﾆ誤動ｿｽすｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽictrlｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾄゑｿｽctrlｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽﾆ費ｿｽｿｽ閧ｳｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽj
ｿｽﾎ擾ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾈ会ｿｽｿｽﾄ鯉ｿｽｿｽRｿｽ[ｿｽhｿｽﾅゑｿｽｿｽB
RadioGroupｿｽｿｽｿｽｿｽAｿｽﾈゑｿｽｿｽﾅ難ｿｽｿｽがｿｽﾏゑｿｽｿｽﾜゑｿｽｿｽB
(RadioGroupｿｽｿｽItemIndexｿｽｿｽ-1ｿｽﾈ外ｿｽﾅなゑｿｽｿｽﾆ再鯉ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB)
procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if ssCtrl in shift then
Label1.Caption := 'Ctrl + down'
else
Label1.Caption := ' down';
end;
procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if ssCtrl in shift then
Label1.Caption := 'Ctrl + up'
else
Label1.Caption := ' up';
end;
ｿｽﾇやさ 2009/01/30(ｿｽｿｽ) 14:46:07
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉパｿｽlｿｽｿｽｿｽｿｽﾍゑｿｽﾂゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌ擾ｿｽﾉｿｽｿｽWｿｽIｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽﾌはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
monaa 2009/01/30(ｿｽｿｽ) 14:52:17
ｿｽｿｽｿｽｿｽｿｽﾍわかｿｽｿｽﾜゑｿｽｿｽがゑｿｽｿｽﾔゑｿｽdｿｽlｿｽﾅゑｿｽｿｽｿｽﾋ。
GetAsyncKeyState(VK_CONTROL)ｿｽﾆゑｿｽGetKeyboardStateｿｽﾅ抵ｿｽｿｽﾗゑｿｽﾎゑｿｽｿｽｿｽｿｽﾌでは？
VCLｿｽﾌ厄ｿｽｿｽﾈのゑｿｽｿｽﾍ抵ｿｽｿｽﾗてまゑｿｽｿｽｿｽB
monaa 2009/01/30(ｿｽｿｽ) 14:53:28
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅは、
RadioGroupｿｽｿｽｿｽZｿｽﾅはなゑｿｽRadioButton,CheckButton,Editｿｽﾅ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽEｿｽHｿｽｿｽｿｽX 2009/01/30(ｿｽｿｽ) 15:31:00
ｿｽｿｽｿｽｿｽｿｽﾌ回答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇやさｿｽｿｽｿｽｿｽAPanelｿｽﾌ擾ｿｽﾉゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽﾍ関係ｿｽﾈゑｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
monaaｿｽｿｽｿｽｿｽA
GetKeyboardStateｿｽﾅでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
http://www.swissdelphicenter.ch/torry/showcode.php?id=1002
var
State: TKeyboardState;
begin
GetKeyboardState(State);
if ((State[VK_CONTROL] and 128) <> 0) then
ｿｽ@ｿｽEｿｽEｿｽEｿｽE
ofZ 2009/01/30(ｿｽｿｽ) 17:19:49
ｿｽｿｽｿｽｿｽｿｽADelphi5ｿｽﾅゑｿｽｿｽB
ｿｽoｿｽOｿｽﾈのゑｿｽｿｽdｿｽlｿｽﾈのゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽが、
FormMouseWheelDownｿｽｿｽFormMouseWheelUp ｿｽﾅ、ｿｽﾈ会ｿｽｿｽﾌ茨ｿｽsｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
Handled := True;
ｿｽｿｽｿｽｿｽﾅ、'Ctrl + up'ｿｽA'Ctrl + down' ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽﾅ、ｿｽﾇゑｿｽﾈｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽﾌ暦ｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾇゑｿｽｿｽﾄみゑｿｽﾆ・ｿｽEｿｽE
ｿｽiｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽｿｽｿｽﾌゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽが）
1)ｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽﾌゑｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽWM_MOUSEWHEEL ｿｽｿｽけ趣ｿｽｿｽﾜゑｿｽ
ｿｽ@ｿｽiTWinControl.WMMouseWheelｿｽj
2)ｿｽけ趣ｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾍ、ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽ
ｿｽ@WM_MOUSEWHEELｿｽ投ゑｿｽｿｽﾜゑｿｽｿｽiTWinControl.MouseWheelHandlerｿｽjｿｽB
ｿｽ@ｿｽｿｽｿｽﾌとゑｿｽｿｽACM_MOUSEWHEELｿｽ投ゑｿｽｿｽ驍ｽｿｽﾟに、ShiftState ｿｽﾌ変奇ｿｽｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@TCMMouseWheel(Message).ShiftState := KeysToShiftState(Message.Keys);
ｿｽ@ｿｽｿｽｿｽｿｽﾅ、Message.WParamｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
3)ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾍ、ｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽﾌゑｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽCM_MOUSEWHEELｿｽ送信ｿｽｿｽｿｽﾜゑｿｽ
ｿｽ@ｿｽiTCustomForm.MouseWheelHandlerｿｽjｿｽB
ｿｽ@WParam,LParamｿｽﾍ、WM_MOUSEWHEELｿｽﾅ受け趣ｿｽｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽﾌまま使ｿｽpｿｽB
4)CM_MOUSEWHEELｿｽｿｽけ趣ｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾍ、OnMouseWheelｿｽ`ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽiｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽHandledｿｽﾋ）
ｿｽ@Handled = True ｿｽﾉなゑｿｽﾈゑｿｽｿｽ鼾ｿｽAParent ｿｽﾉ、CM_MOUSEWHEELｿｽ送ゑｿｽﾜゑｿｽｿｽB
5)ｿｽｿｽｿｽｿｽｿｽｿｽParentｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈるかｿｽAHandled=Trueｿｽﾉなゑｿｽﾜで擾ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽOnMouseWheelｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌは、ｿｽRｿｽR
ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾅは、ｿｽｿｽｿｽｿｽｿｽShiftStateｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
6)ｿｽﾈ上がｿｽAｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽﾌゑｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽWM_MOUSEWHEELｿｽｿｽけ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ、VCLｿｽﾌ擾ｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾜでゑｿｽHandled = True ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ鼾ｿｽATWinControl.DefaultHandler ｿｽｿｽｿｽｿｽA
ｿｽ@CallWindowProcｿｽｿｽﾄゑｿｽﾅ、OSｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
7)OSｿｽﾍ、ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆ費ｿｽｿｽfｿｽｿｽｿｽﾄ、ｿｽiｿｽｿｽｿｽﾔゑｿｽjParentｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽWM_MOUSEWHEELｿｽ投ゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽiｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾅ擾ｿｽｿｽParentｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾈり投ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽj
8)Parentｿｽﾍ、1)ｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉ行ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅ抵ｿｽｿｽﾓゑｿｽｿｽﾗゑｿｽｿｽﾈのゑｿｽｿｽA
ｿｽ@2)ｿｽﾅ、WParamｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ_ｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽWParamｿｽｿｽACM_MOUSEWHEELｿｽ投ゑｿｽｿｽ驍ｽｿｽﾟに、ｿｽﾄ度ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽsｿｽｿｽｿｽｿｽｿｽﾟ、ShiftStateｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽShiftStateｿｽﾅ、OnMouseWheelｿｽ`ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽA
ｿｽ@ShiftStateｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌは難ｿｽｿｽRｿｽB
ｿｽ@ｿｽQｿｽｿｽﾚ（ｿｽﾈ降ｿｽjｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽ¥ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ黷ｵｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
TWinControl.WMMouseWheel ｿｽｿｽｿｽAｿｽﾈ会ｿｽｿｽﾌようｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽvｿｽﾆ思ｿｽｿｽｿｽB
TCMMouseWheel(Message).ShiftState := KeysToShiftState(Message.Keys);
MouseWheelHandler(TMessage(Message));
if Message.Result = 0 then inherited;
ｿｽ@ｿｽｿｽ
TCMMouseWheel(Message).ShiftState := KeysToShiftState(Message.Keys);
MouseWheelHandler(TMessage(Message));
if Message.Result = 0 then
begin
//ｿｽtｿｽﾏ奇ｿｽ(ShiftStateToKey)ｿｽﾌ関撰ｿｽｿｽﾍ趣ｿｽｿｽすｿｽ驍ｵｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽﾈ？
TCMMouseWheel(Message).ShiftState := ShiftStateToKey(Message.Keys);
inherited;
end;
ｿｽEｿｽHｿｽｿｽｿｽX 2009/02/02(ｿｽｿｽ) 10:23:40
ofzｿｽｿｽｿｽｿｽAｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽﾗてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
>ｿｽﾅ、ｿｽﾇゑｿｽﾈｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽﾌ暦ｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾇゑｿｽｿｽﾄみゑｿｽﾆ・ｿｽEｿｽE
>ｿｽiｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽｿｽｿｽﾌゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽが）
ｿｽEｿｽEｿｽEｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽBｿｽｿｽｿｽﾍほとゑｿｽﾇ付ｿｽｿｽｿｽﾄ行ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽiｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽAｿｽuHandled ｿｽｿｽtrueｿｽﾉゑｿｽｿｽ驍ｾｿｽｿｽｿｽvｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽpｿｽHｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽRｿｽﾍ良ゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
GetKeyboardStateｿｽ@ｿｽﾅ費ｿｽｿｽ閧ｷｿｽｿｽﾆ１ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽiｿｽRｿｽｿｽｿｽｿｽxｿｽjｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍまゑｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
Handled ｿｽｿｽtrueｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾆ１ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽPｿｽCｿｽxｿｽｿｽｿｽgｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾆなゑｿｽﾜゑｿｽｿｽB
