1個彈出菜單和2個備忘錄，其中備忘錄是從

2012-05-09 142 views 1 likes

調用的菜單我在表單上有2個備忘錄，並且1個Tpopupmenu分配了彈出菜單作爲兩個備忘錄的彈出菜單。彈出式菜單中有一些菜單項分配給它，當我用鼠標右鍵單擊備忘錄並單擊其onclick事件中的一個菜單項時，我想能夠知道哪一個備忘錄是菜單被調用，但無法弄清楚如何找出它是哪個備忘錄！1個彈出菜單和2個備忘錄，其中備忘錄是從

任何人都可以給我一個關於如何檢測潛在備忘錄的指針。

感謝

科林

來源

2012-05-09 colin

回答

您可以使用彈出式菜單的PopupComponent屬性：

procedure TForm1.PopupItemClick(Sender: TObject); 
begin 
    if PopupMenu1.PopupComponent = Memo1 then 
    .. 
    else 
    ..

來源

2012-05-09 22:57:34

或Type-投了'PopupComponent'值到'TMemo'指針，並把它作爲需要。 –

@RemyLebeau：是的，當用'is TMemo'檢查時，我更喜歡通過if語句進行強制轉換（+賦給本地var）。除非每個備忘錄的處理方式不同，但在這種情況下，無論如何可能會有兩個菜單項被警告。 –

謝謝，我確實認爲它是PopupComponent，但我使用的項目PopupComponent當然是givig我的彈出菜單。 – colin

相關問題

11. 設計模式備忘錄
12. 轉換備忘錄文本
13. 備忘錄遞歸函數
14. 備忘錄線分割
15. 自動調整備忘錄
16. GDB備忘單
17. ggplot2備忘單
18. System.ComponentModel.DataAnnotations備忘單？
19. OpenGL備忘單？
20. Eclipse的備忘單資料庫/目錄
21. 從system.out.println重定向到備忘錄
22. 從備忘錄解析數據SQL
23. Zeos和/或SQLite與備忘錄崩潰
24. 是否有DirectX備忘單？
25. GNU使備忘單
26. 提升備忘單
27. HTML5 Forms備忘單
28. Xtend的備忘單？
29. Objective-C備忘單
30. #inject中的備忘錄如何工作？