A: 增加扩展窗口激活和未激活函数

energye · Aug 16, 2023 · 62864c5 · 62864c5
1 parent d7eb1f4
commit 62864c5
Show file tree

Hide file tree

Showing 2 changed files with 31 additions and 1 deletion.
diff --git a/src/Energy_Extend.inc b/src/Energy_Extend.inc
@@ -62,8 +62,24 @@ begin
 end;
 
 
+procedure Ext_Form_Activate(AObj: TGoForm); extdecl;
+begin
+  handleExceptionBegin
+  AObj.GoActivate;
+  handleExceptionEnd
+end;
+
+procedure Ext_Form_Deactivate(AObj: TGoForm); extdecl;
+begin
+  handleExceptionBegin
+  AObj.GoDeactivate();
+  handleExceptionEnd
+end;
+
 exports
   Ext_Panel_GetBevelColor,
   Ext_Panel_SetBevelColor,
-  Ext_ReadStringProperty
+  Ext_ReadStringProperty,
+  Ext_Form_Activate,
+  Ext_Form_Deactivate
 ;
diff --git a/src/ugoform.pas b/src/ugoform.pas
@@ -50,6 +50,10 @@   TGoForm = class(TForm)
     procedure ScaleForPPI(ANewPPI: Integer);
     procedure ScaleForCurrentDpi;
 
+
+    procedure GoDeactivate();
+    procedure GoActivate();
+
     procedure InheritedWndProc(var TheMessage: TLMessage);
 
     // On Messages, 设置各类消息事件的函数api
@@ -89,6 +93,16 @@ constructor TGoForm.CreateNew(AOwner: TComponent; Num: Integer);
   inherited CreateNew(AOwner, Num);
 end;
 
+procedure TGoForm.GoDeactivate();
+begin
+     self.Deactivate;
+end;
+
+procedure TGoForm.GoActivate();
+begin
+     self.Activate;
+end;
+
 procedure TGoForm.ScaleForPPI(ANewPPI: Integer);
 begin
   if ANewPPI < 30 then