Einzelnen Beitrag anzeigen

Benutzerbild von Ultimator
Ultimator

Registriert seit: 17. Feb 2004
Ort: Coburg
1.860 Beiträge
 
FreePascal / Lazarus
 
#1

Unbekannter Bezeichner TPanel in neuer Unit

  Alt 14. Feb 2005, 20:47
Argh, hab wiedermal ne Frage *g*

Ich hab mich jetzt mal so n ganz klein wenig an Messages rangewagt, und hab mal versucht, ein Panel zu "erschaffen", das mir eine Nachricht per ShowMessage anzeigt, wenn ich es mit der Maus "betrete". So im Allgemeinen hab ich die Sache auch verstanden, allerdings heißts in meiner Unit auf einmal "Unbekannter Bezeichner: TPanel" an der im Source markierten Stelle, wenn ich sie einbinde, und eine Variable des Typs TMyPanel definiere.
Was hab ich denn falsch gemacht?
Ich hab auch deswegen vorsichtshalber mal alle Units eingebunden, die auch in ner neuen, leeren Anwendung drin sind, aber es hat auch nix geholfen.

Ich hoffe, ihr könnt mir wieder mal helfen bzw. zeigen, was ich falsch mache
(Ja, los, gebts mir )

Delphi-Quellcode:
unit MyPanel;

interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;


 type
  TMyPanel = class(TPanel) //<--- Hier bleibt der Cursor hinter TPanel stehen und die Zeile wird rot
    private
      procedure WMMouseEnter(var MSG: TWMMouseEnter); message WM_MOUSEENTER;
  end;

var MyPanel1: TMyPanel;

implementation

procedure TMyPanel.WMMouseEnter(var Msg: TWMMouseEnter);
begin
  ShowMessage('Du hast mich betreten!');
end;


end.
Julian J. Pracht
  Mit Zitat antworten Zitat