瀏覽代碼

Fix OnBooksChanged type to accept methods (procedure of object)

- Allows assigning TForm.SaveBooksNow to OnBooksChanged without type mismatch
Codex CLI 4 月之前
父節點
當前提交
d78d6aa18c
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      src/unitAppEvents.pas

+ 2 - 2
src/unitAppEvents.pas

@@ -5,7 +5,8 @@ unit unitAppEvents;
 interface
 
 type
-  TNotifyProc = procedure;
+  // Use "of object" so methods (e.g., TForm1.SaveBooksNow) can be assigned
+  TNotifyProc = procedure of object;
 
 var
   OnBooksChanged: TNotifyProc = nil;
@@ -21,4 +22,3 @@ begin
 end;
 
 end.
-