したいけどできなかったので作りました。 全ソース unit LockOnLoad; interface uses ToolsAPI, ComponentDesigner; implementation type TIDENotifier = class(TNotifierObject, IOTAIDENotifier) private procedure FileNotification(NotifyCode: TOTAFile…