Làm cách nào tôi có thể gán sự kiện OnClick của một ToolButton khi chạy?

Question

Tôi có một TToolBar được tạo trong thời gian thiết kế không có ToolButton. Ý tưởng của tôi là tạo ToolButton trong thời gian chạy và đặt chúng ở đó khi các biểu mẫu của tôi được tạo ra, chỉ để hiển thị cho người dùng những biểu mẫu nào được mở mà không cần mở menu "Windows" trong menu chính.

Tôi có một đơn vị có tên NavigationUtils.pas mà tôi sử dụng để lưu trữ các thủ tục/chức năng về điều hướng (khi tạo các nút khi biểu mẫu của tôi được tạo).

Câu hỏi đặt ra là: Làm cách nào tôi có thể định cấu hình sự kiện OnClick khi ToolButton được tạo?

Answer 1

Từ nhận xét, rõ ràng là bạn không chỉ định TNotifyEvent cho sự kiện OnClick. Tờ khai TNotifyEvent là:

TNotifyEvent = procedure(Sender: TObject) of object; 

Vì vậy, bạn cần một thủ tục, với một tham số duy nhất của loại TObject, và các thủ tục phải có phương pháp của một đối tượng. Vì vậy, một cái gì đó như thế này:

procedure TMyForm.ToolButtonClick(Sender: TObject); 

Và sau đó bạn có thể gán nó như vậy:

NewToolButton.OnClick := ToolButtonClick;