TMenuItem mit OnSelect/MouseOver ?

[pstruh]

Moin, moin,

auch hier bin ich kein Experte, aber muss es nicht statt

Delphi-Quellcode:

procedure TMenuItemEx.DoMouseLeave; 
begin 
  if Assigned( FOnMouseLeave) then FOnMouseLeave( Self); 
end;

so deklariert werden?

Delphi-Quellcode:

procedure TMenuItemEx.DoMouseLeave; 
begin 
  if @OnMouseLeave<>nil then OnMouseLeave(Self); 
end;

Gruß