當我按下滑鼠右鍵時, 我該如何判斷是那一個物件被點到, 我很懶 不想用 << 物件.OnClick() >>

您好﹗    在某個Button（如Button1）的OnMouseDown事件中鍵入如下程式碼﹕

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Sender is TButton) and (Button = mbRight) then
    ShowMessage((Sender As TButton).Caption);
end;

然后將其它的Button的OnMouseDown事件中設定共用此Button的事件程式碼 如Button2的OnMouseDown事件設定為﹕Button1MouseDown ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

感謝版主 只是 我的元件都是runtime產生的 沒有預設數量 型態

Hi beenteen,    拉一個 ApplicationEvent 元件(在 Additional TAB 中)，並在其 OnMessage 事件中加入以下程式碼

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
Var
  CC : TControl;
  SP,CP : TPoint;
begin
  if msg.message = WM_RBUTTONDOWN then
    begin
      SP.X := Msg.pt.X;
      SP.Y := Msg.pt.Y;
      CP := Self.ScreenToClient(SP);
      CC := Self.ControlAtPos(CP,True,True);
      if CC <> Nil then
        ShowMessage(CC.Name);
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman