左右开弓怎么响应？??

[zealothasu]

鼠标左键右键同时按下去，button怎么响应？？

[zealothasu]

应该说是button怎么样才知道是同时按下2键？？
在什么事件里面写？

[zealothasu]

为什么没人响应？？

难道很难

[lyre]

var
KeySet : set of TMouseButton;

procedure Txxx.MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
KeySet := KeySet - [Button];
end;

procedure Txxx.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
KeySet := KeySet + [Button];
if KeySet = [mbLeft, mbRight] then
//就是这里了
;
end;

[warton]

对，上面的代码没有一点问题，我测试过了！

[zealothasu]

good