Komponente ableiten: Ereignisse überschreiben

[xaromz]

Hallo,

die beiden Methoden sind folgendermaßen in private deklariert:

Delphi-Quellcode:

procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

So sieht die Implementierung von TControl aus:

Delphi-Quellcode:

procedure TControl.CMMouseEnter(var Message: TMessage);
begin
  if FParent <> nil then
    FParent.Perform(CM_MOUSEENTER, 0, Longint(Self));
  if (Message.LParam = 0) and Assigned(FOnMouseEnter) then
    FOnMouseEnter(Self);
end;

procedure TControl.CMMouseLeave(var Message: TMessage);
begin
  if FParent <> nil then
    FParent.Perform(CM_MOUSELEAVE, 0, Longint(Self));
  if (Message.LParam = 0) and Assigned(FOnMouseLeave) then
    FOnMouseLeave(Self);
end;

Das kannst Du so übernehmen und einfach die Methoden abändern.

Gruß
xaromz