FIX: TotalCmd window causing problem with current active form.

This commit is contained in:
cobines 2009-10-18 13:40:11 +00:00
commit aaeb998048

View file

@ -42,8 +42,19 @@ var
function WindowProc(hWnd: HWND; uiMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
// resend message to real main window
SendMessage(hMainWindow, uiMsg, wParam, lParam);
{
Resend message to DoubleCommander main window.
Disabled currently, because it may interfere with LCL, especially since the fake
TotalCmd window is also a main app window (WS_OVERLAPPEDWINDOW). May be enabled
in future if any plugins need this, but following messages should be skipped
because they are known to cause conflict:
- WM_ACTIVATEAPP
Confuses LCL about which main form (window) is currently active and
it stops calling OnExit events for controls (see TWinControl.WMKillFocus).
}
//SendMessage(hMainWindow, uiMsg, wParam, lParam);
{$IFDEF DEBUG}
WriteLn(uiMsg);
{$ENDIF}
@ -70,4 +81,4 @@ begin
{$ENDIF}
end;
end.
end.