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