...

解决方案 »

  1.   

    我知道用OnMouseDown,主要是shift应该是怎么写表示左键?
      

  2.   

    procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      if button = mbLeft then showmessage('OK');
    end;
      

  3.   

    同意楼上,如
    procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      if button = mbLeft then
         MessageBox(Handle, PChar(' 你按下左键 '), '提示信息', MB_OK+MB_ICONInformation);
    end;
      

  4.   

    Click事件中就是鼠标左键
    shit里写ssLeft有问题请发信息到我的E-mail:[email protected]
      

  5.   

    TMouseButton = (mbLeft, mbRight, mbMiddle);
      

  6.   

    if button=mbleft then
    这个也是是判断按下左键!
    有问题请发信息到我的E-mail:[email protected]
      

  7.   

    同意:qiume(乞丐程序员)
    procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      if button = mbLeft then showmessage('OK');
    end;
      

  8.   

    TMouseButton = (mbLeft, mbRight, mbMiddle)
    procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      if button = mbLeft then .....
    end;