求助，如何编写一个响应鼠标左右键同时按下的事件

Question

用了一个土办法可以解决问题, 但是仍然关注高手解答!首先用一个Timer, 将Interval设置为1, Enabled=False;
设几个全局变量
LbDown, RbDown: Boolean;
CLK: Integer;然后:
procedure TNEditorWND.Timer1Timer(Sender: TObject);
begin
  Inc(CLK);
  if CLK>10 then        //CLK>10或者更小(如: CLK>5) 可以更严格的控制左右键同时
  begin
    lbdown:=false;
    rbdown:=false;
    Timer1.Enabled:=False;
  end;
end;procedure TNEditorWND.FrameMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if (Button=mbLeft) then
    begin
      lbdown:=true;
      clk:=0;
      Timer1.Enabled:=true;
    end;
    if (Button=mbRight) then
    begin
      rbdown:=true;
      clk:=0;
      Timer1.Enabled:=true;
    end;
    if (lbdown) and (rbdown) then
  showmessage('Hello');
end;经过试验,成功. 

Answer 1

to Typhone(Typhone):give u 20 fen two days later.
哪位可以在给出更好的解决办法？

Answer 2

好像有看过这么一篇文章，不过忘了。ask for help

Answer 3

最简单的应该是这样的
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (Shift = [ssLeft, ssRight]) then ShowMessage('Ok');
end;