Methode 'WndProc' nicht in Basisklasse gefunden?

**AlexII**

Hallo,

ich hab ein folgendes Problem und komme nicht weiter, und zwar die Methode 'WndProc' wird bei mir nicht in Basisklasse gefunden. Woran kann es denn liegen? Hier mein Code:

zusammenfalten · markieren

Delphi-Quellcode:

			...

  public

    { Public-Deklarationen }

    procedure WndProc(var Msg: TMessage); override;

...

...

procedure TForm1.WndProc(var Msg: TMessage);

begin

  inherited;

  if Msg.Msg = WM_INFO_UPDATE then

    case msg.WParam of

      0:

        begin

          Label4.Text := 'connecting...';

          Label3.Text := '';

          Label5.Text := '';

        end;

      1:

        begin

          Label4.Text := 'not playing';

          //Error('Can''t play the stream');

         MessageBox(win, PChar('Can''t play the stream' + #13#10 + '(error code: ' +

            IntToStr(msg.LParam)+')'), nil, 0);

        end;

      2: Label4.Text := Format('buffering... %d%%', [msg.LParam]);

      3: Label4.Text := String(PAnsiChar(msg.LParam));

      4: Label5.Text := String(PAnsiChar(msg.LParam));

      5: Label5.Text := String(PAnsiChar(msg.LParam));

      6: Label3.Text := String(PAnsiChar(msg.LParam));

      7: Label3.Text := String(PAnsiChar(msg.LParam));

      8: Label5.Text := String(PAnsiChar(msg.LParam));

    end;

end;

...

Methode 'WndProc' nicht in Basisklasse gefunden?

Methode 'WndProc' nicht in Basisklasse gefunden?

Forumregeln