[gelöst]Zugriff auf geerbte Attribute

[max_itn]

Hallo Leute,
ich fange gerade an mich näher mit Pascal zu beschäftigen und stoße auf ein Problem bei dem Zugriff auf geerbte Attribute!
Ich habe eine Ausbildung zum Fachinformatiker gemacht, Schwerpunkt Java.
Das Problem ist aufgetreten wenn ich ein Label erweitern möchte!
Wenn ich im Abschnitt „implementation“ eine Prozedur implementiere kann ich nicht auf das Caption-Attribut/Eigenschaft zugreifen.

Code: Alles auswählen

  procedure MyMouseEnter(Sender: TObject) ;
begin
FInMouse := true;
Caption := 'Auf mir steht die Maus';
end;   

Der Compiler liefert mir die Fehlermeldung „Identifier not found Caption“
Die Gleiche Fehlermeldung für das Feld „FInMouse“
Hier nochmal meine Definition aus dem Typ-Bereich:

Code: Alles auswählen

TMyLabel =  class(TCustomLabel)
private
 
  FInMouse: Boolean;
  public
 
  procedure SetInMouse(MouseIn: boolean);
  function GetInMouse: boolean;
  procedure MyMouseEnter(Sender: TObject);
  procedure MyMouseLeave(Sender: TObject);
 
  end;

Was mache ich falsch?
Ich verwende die Lazarusversion 1.4.0
Mfg Max_itn

[baumina]

Code: Alles auswählen

  procedure MyMouseEnter(Sender: TObject) ;
begin
FInMouse := true;
Caption := 'Auf mir steht die Maus';
end;   

Da es eine procedure der Klasse ist, muss es so heißen:

Code: Alles auswählen

  procedure TMyLabel.MyMouseEnter(Sender: TObject) ;

[max_itn]

Viel Dank! Das hat prima geklappt!
Mfg Max_itn

[Komoluna]

ich weiß ja nicht wie das in java ist, aber in pascal kann man mehrere Klassen in derselben Datei schreiben. Wenn du dann zwei Klassen mit gleichnamigen Methoden hast, muss das ja irgendwie zugeordet werden.

MFG

Komoluna