[DUG] Stack Overflow in WndProc

[jason at software-solutions.co.nz]

Hi there,

I have been experiencing a Stack Overflow error in my WndProc override and not sure why this is....

Basic form below..

TMyForm = class(TForm)
...
Protected
    procedure WndProc(var Message: TMessage); override;
...
End;

procedure TMyForm.WndProc(var Message: TMessage);
var
  fActive                   : Boolean;
begin
  case Message.Msg of
    WM_NCPAINT, WM_NCACTIVATE:
      begin
        if not IsIconic(Handle) then
        begin
          if Message.Msg = WM_NCPAINT then
            fActive                                       := (Handle = GetActiveWindow)
          else
            fActive                                       := (Message.wparam <> 0);
          if fActive then
          begin
           //Do Stuff
          end;
        end;
        if Message.Msg = WM_NCPAINT then
        begin
          if DwmCompositionEnabled then
            inherited WndProc(Message);
        end
        else
          inherited WndProc(Message);
      end;
    CM_DEACTIVATE:
      begin
      end;
    CM_ACTIVATE:
      begin
      end;
    else
    begin
      inherited WndProc(Message);
    end;
  end;
end;

any ideas what could be wrong here?
I am trapping other windows messages in other message traps like...

    procedure WMCommand(var Message: TWMCommand); message WM_COMMAND;
    procedure WMActivate(var Msg: TWMActivate); message WM_ACTIVATE;



Regards from New Zealand (GMT+12)

Jason Coley
Software Solutions

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20110602/5fc4ad92/attachment.html