想請問一下各位高手 假設我現在有很多TDBGrid元件 每個元件都需要一個PopupMenu元件來作關閉的動作 想請問一下我要如何使用一個PopupMenu就可以處理所有視窗的分別關閉動作? 不是一次關掉所有哦 ^^ 是在那個DBGrid上按右鍵關閉後只關閉那個DBGrid 卻不關閉其它的DBGrid 麻煩有方法的高手們教教小弟吧 ^_^

看這樣行不行？

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
  p: TPoint;
  wc: TWincontrol;
begin
  GetCursorPos(p);
  wc := FindVCLWindow(p);
  if (wc <> nil) then begin
    if wc = DBGrid1 then
      // ...
    if wc = DBGrid2 then
      // ...
  end;
end;

--- 屬於那自己生命的歌 不管是什麼顏色

andy1119 你好: 應該也可用 TPopupMenu.PopupComponent Property procedure TForm1.PopupMenu1Popup(Sender: TObject); begin showmessage(TPopupMenu(Sender).PopupComponent.name); end;

見笑了!  --- 屬於那自己生命的歌 不管是什麼顏色

感謝兩位大大的回覆 ^_^ 可是我試了一下 hagar的方法已可達到小弟的需求 ^_^ 但是使用Micky的方法只出現空白的字串 我是Delphi 7.0 請問是語法有變嗎??? 因為我執行上沒問題

我試 Design Time Create 的 DBGrid 沒問題.....    如果是 Run Time Create 的 DBGrid, 且沒有 Assign Name Property, 當然是空的, 如:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TDBGrid.Create(self)do begin
    parent := self;
    popupmenu := popupmenu1;
  end;
end;

@@咦小弟也是在Design Time Create的TDBGrid 我說一下我測試的方法好了 首先開一個新的application 然後在form1上放兩個TDBGrid分別為DBGrid1與DBGrid2 在放上一個TPopupMenu元件 滑鼠雙擊該元件並新增一個新的TMenuItem 再點選進去新建立的TMenuItem後 並填寫下列程式碼 procedure TForm1.N1Click(Sender: TObject); begin showmessage(TPopupMenu(Sender).PopupComponent.name); end; 執行後程式無論點選那一個DBGrid都只秀出空字串 請問一下是否有那個地方觀念弄錯了呢 ^_^"""

那段程式是寫在 TPopupMenu.OnPopup Event, 不是 MenuItem.OnClick Event.    因為 MenuItem.OnClick 的 Sender 會是 TMenuItem 而非 TPopupMenu.    因為 TPopupMenu.PopupComponent 是 TComponent, 取得後運用較廣,    如: 

if PopupMenu1.PopupComponent is TImage then 
with TImage(PopupMenu1.PopupComponent) do begin
  ... 
end;

發表人 - Mickey 於 2004/03/04 10:21:52

嗯 我懂了 又多學了一招 謝謝這位大大 ^_^ 也感謝hagar的方法哦 謝謝 ^^