U: main window, WindowProperty MainFormOnTaskBar

cef/browser-main-window.go

@@ -87,11 +87,7 @@ func (m *lclBrowserWindow) OnFormCreate(sender lcl.IObject) {
 		m.createAuxTools()
 		m.GetAuxTools().SetDevTools(createDevtoolsWindow(&m.LCLBrowserWindow))
 	}
-	m.TForm.SetOnWndProc(m.onFormWndProc)
-}
-
-func (m *lclBrowserWindow) SetOnWndProc(fn lcl.TWndProcEvent) {
-	m.onMainFormWndProc = fn
+	m.wndProc()
 }
 
 // MainWindow 获取主浏窗口

cef/browser-main-window_other.go

@@ -13,12 +13,17 @@
 package cef
 
 import (
+	"github.com/energye/golcl/lcl"
 	"github.com/energye/golcl/lcl/types"
 )
 
-func (m *lclBrowserWindow) onFormWndProc(msg *types.TMessage) {
-	m.InheritedWndProc(msg)
-	if m.onMainFormWndProc != nil {
-		m.onMainFormWndProc(msg)
-	}
+func (m *lclBrowserWindow) wndProc() {
+
+}
+
+func (m *lclBrowserWindow) SetOnWndProc(fn lcl.TWndProcEvent) {
+	m.TForm.SetOnWndProc(func(msg *types.TMessage) {
+		m.InheritedWndProc(msg)
+		fn(msg)
+	})
 }

cef/browser-main-window_windows.go

@@ -21,13 +21,19 @@ import (
 	"github.com/energye/golcl/lcl/win"
 )
 
-func (m *lclBrowserWindow) onFormWndProc(msg *types.TMessage) {
-	m.InheritedWndProc(msg)
-	if m.onMainFormWndProc != nil {
-		m.onMainFormWndProc(msg)
-	}
-	if !m.WindowProperty().MainFormOnTaskBar && msg.Msg == messages.WM_SHOWWINDOW {
-		m.Hide()
-		winapi.WinSetWindowLong(t.HWND(lcl.Application.Handle()), win.GWL_EXSTYLE, win.WS_EX_TOOLWINDOW)
-	}
+func (m *lclBrowserWindow) wndProc() {
+	m.TForm.SetOnWndProc(func(msg *types.TMessage) {
+		m.InheritedWndProc(msg)
+		if m.onMainFormWndProc != nil {
+			m.onMainFormWndProc(msg)
+		}
+		if !m.WindowProperty().MainFormOnTaskBar && msg.Msg == messages.WM_SHOWWINDOW {
+			m.Hide()
+			winapi.WinSetWindowLong(t.HWND(lcl.Application.Handle()), win.GWL_EXSTYLE, win.WS_EX_TOOLWINDOW)
+		}
+	})
+}
+
+func (m *lclBrowserWindow) SetOnWndProc(fn lcl.TWndProcEvent) {
+	m.onMainFormWndProc = fn
 }