Bist du in der richtigen Sparte?
Ich hab jetzt schon länger kein Object Pascal programmiert, aber ich würde es so machen:
Delphi-Quellcode:
type
TGegenstand = class(TImage)
private
FAnzeigeText: TNotifyEvent;
protected
property anzeigeText: TNotifyEvent read FAnzeigeText write FAnzeigeText;
{ ... }
end;
constructor TGegenstand.Create(Owner: TWinControl; aktName: String; aktxPos, aktyPos: Integer);
begin
{ ... }
OnMouseMove := FAnzeigeText;
end;
{ ... }
procedure TGegenstand.anzeigeText(Sender: TObject);
begin
inherited OnMouseMove;
(Owner as TForm1).blKuecheText.caption:='Ein Glas mit schwebenden Augen';
end;
Der Zugriff auf das Formulat ist aber in meinen Augen alles andere als Objwektorientiert und ziemlich ekelig -- ich würde dir raten, es anders zu machen. Übrigens solltest du dir überlegen, welche Eigenschaften du von TImage schon erbst (Name zum Beispiel) und in der Delphi-Hilfe unter "property" nachlesen.