I have a form with a hyperlink to a web page and that works just fine. I want to change the cursor to a pointing hand when the cursor is over the hyperlink text. I originally had a simple label and the OnClick worked just fine for the hyperlink but there was no OnEnter/Exit for the label to control the cursor.
So I put the text in a tight-fitting panel which does have those events. The code for those events is:
procedure TfrmMainForm.Panel1Enter(Sender: TObject);
Screen.Cursor := crHandPoint;
procedure TfrmMainForm.Panel1Exit(Sender: TObject);
Screen.Cursor := crDefault;
The problem is that when I move the cursor over the panel, the OnEnter routiine is not triggered and the cursor stays the same.
What do I need to do to trigger both of the routines?