Tôi đang sử dụng thành phần ActnPopup.TPopupActionBar
và tôi muốn thêm một vài hành động chuẩn như TFileOpen, TFileOpenWith và v.v. Câu hỏi đặt ra là làm thế nào tôi có thể thêm những hành động này trong thời gian chạy đến một TPopupActionBar?Cách thêm hành động chuẩn vào thành phần ActnPopup.TPopupActionBar trong thời gian chạy?
Trả lời
tôi sẽ cố gắng một cái gì đó như thế này:
procedure TForm1.Button1Click(Sender: TObject);
var
MenuItem: TMenuItem;
Action: TCustomAction;
begin
MenuItem := TMenuItem.Create(PopupActionBar1);
Action := TFileOpen.Create(PopupActionBar1);
Action.Caption := '&Open...';
Action.ShortCut := 16463;
MenuItem.Action := Action;
PopupActionBar1.Items.Add(MenuItem);
MenuItem := TMenuItem.Create(PopupActionBar1);
Action := TFileOpenWith.Create(PopupActionBar1);
Action.Caption := 'Open with...';
MenuItem.Action := Action;
PopupActionBar1.Items.Add(MenuItem);
end;
Và nơi nào tôi có được các giá trị Caption và phím tắt? Câu hỏi hay. Đây là từ trình soạn thảo thành phần của danh sách hành động. Bạn có thể lấy chúng nếu bạn thêm các hành động chuẩn vào danh sách hành động của bạn và nhìn vào mã nguồn của biểu mẫu của bạn. Ở đó bạn sẽ thấy các định nghĩa hành động của bạn, như thế này một: (? Cho mục popup menu)
object FileOpen1: TFileOpen
Category = 'File'
Caption = '&Open...'
Hint = 'Open|Opens an existing file'
ImageIndex = 7
ShortCut = 16463
end
Và kể từ khi cho popup menu bạn không cần một Gợi ý, loại (là đối với danh sách hành động) cũng không ImageIndex (bạn có thể xác định tập hợp hình ảnh của riêng bạn, do đó các chỉ mục của bạn có thể khác nhau), bạn có thể để chúng. Trong thực tế, bạn có thể để lại tất cả điều này, hành động sẽ được thực hiện ngay cả như vậy (dựa trên lớp bạn sẽ sử dụng), nhưng bạn sẽ không có chú thích hay phím tắt.
- 1. Cách thêm UIButton vào thời gian chạy
- 2. Thêm thành viên vào đối tượng động trong thời gian chạy
- 3. Thêm các lớp thực thể động vào thời gian chạy
- 4. Cách thêm nút MvcSitemapProvider mới vào thời gian chạy
- 5. Cách thêm dấu thời gian vào TFSBuild.proj?
- 6. Thêm hình ảnh trong thời gian chạy
- 7. Cách thêm 4 giờ vào thời gian trong PHP/MySQL
- 8. XElement => Thêm trẻ em nút vào thời gian chạy
- 9. Nhân bản các thành phần tại thời gian chạy
- 10. Thêm mã vào đầu/cuối của các phương thức trong thời gian chạy động
- 11. Thêm điều khiển vào TableLayoutPanel động trong suốt thời gian chạy
- 12. Cách tự động thêm khoảng thời gian vào dấu thời gian?
- 13. Tự động thêm thuộc tính C# tại thời gian chạy
- 14. Thêm phút vào thời gian trong PHP
- 15. Xác định hệ điều hành trong thời gian chạy
- 16. Thêm giá trị vào thời gian thực tự động hoàn thành jQuery
- 17. Làm cách nào để thêm thuộc tính vào lớp trong thời gian chạy trong C#?
- 18. Thêm các thông tin thêm thời gian chạy vào đối tượng activerecord
- 19. Cách thêm thời gian chờ vào một hàm trong Python
- 20. Thêm cờ trong thời gian chạy (Xcode Instruments)
- 21. Trì hoãn một hành động trong một khoảng thời gian
- 22. Làm cách nào để thêm thuộc tính vào đối tượng trong thời gian chạy?
- 23. Cách thêm thời gian vào DateTime trong SQL
- 24. NoMethodError trên đối tượng thời gian chạy Android chuẩn
- 25. Thêm các phương thức hành động vào một thành phần phức hợp
- 26. Thêm hình ảnh png vào hình ảnh trong thời gian chạy bằng Delphi XE
- 27. Có thể tự động thay đổi không gian tên thành ServiceContract trong thời gian chạy không?
- 28. Thêm các lọ vào một trình cắm thêm Eclipse tại thời gian chạy
- 29. Thêm Dấu thời gian vào tên tệp
- 30. Đường ray - cách thêm dấu thời gian vào mô hình?