cannot find implementation of method formActive
如题

[解决办法]
就是没实现formActive啊，查找到procedure formActive(Sender: TObject)，然后Ctrl+Shift+C,去实现它！