[DUG] Stack Overflow in WndProc

[ja...@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


_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: 
unsubscribe