MouseOver erkennen ohne neue Kompo

[messie]

Moin,

ich möchte gerne etwas triggern, wenn ich mit der Maus über ein Steuerelement gehe. Das geht, indem ich eine property OnMouseEnter in die Komponente einbaue.
Nun will ich nicht die acht Sorten Komponenten komplett umbauen.
Gibt es noch einen anderen Weg, dieses Event einzufangen, als das Erstellen neuer Komponenten?

Grüße, Messie

[Uwe Raabe]

Das OnMouseMove Event ist in TControl bereits als protected deklariert und wird in den entsprechenden Komponenten im Allgemeinen lediglich published gemacht. Somit kannst du mit dem altbekannten Hack "wie greife ich auf protected Eigenschaften einer Klasse zu" das Problem zwar nicht in der IDE, aber im Source lösen:

Delphi-Quellcode:

type
  TControlHack = class(TControl)
  end;

procedure SetMouseMoveEventToControl(AControl: TControl; AMouseMoveEvent: TMouseMoveEvent 
begin 
  TControlHack(AControl).OnMouseMove := AMouseMoveEvent;
end;

[messie]

Ich hab's leider nicht ganz verstanden
Wie soll ich das mit meinen Controls verheiraten?

Grüße, Messie

[DeddyH]

Zur Laufzeit zuweisen.