Hoover-Effekt für TRichEdit

[Bummi]

Delphi-Quellcode:

procedure TForm5.RichEdit1MouseEnter(Sender: TObject);
begin
  UpDown1.Visible := true;
end;

procedure TForm5.RichEdit1MouseLeave(Sender: TObject);
var
  p:TPoint;
begin
  p := Updown1.ScreenToClient(mouse.CursorPos);
  UpDown1.Visible := (p.X>0) and (p.x <=Updown1.Width ) and (p.y>0) and (p.y <=Updown1.Height )
end;