highlight objects on form

Hi Derek,

This is only part of the misunderstanding.
Suppose you place a Panel on the form and put several components on it. The coordinates of these components will be calculated from the anchor point of the Panel. There may also be problems with underlining. And not only the Panel... You can complicate the code and solve this.
Let's go back to RichEdit. This is a composite component (edit window, three menus ...) and apparently not fully described correctly in the source code. Sad.
But in this case you can get around it like this:

procedure highlighter (Sender: TObject);
var
  TctrlS: TControl;
begin
  if Sender.classname = 'TRichViewEdit' then
    TctrlS := TControl(Sender).parent else
      TctrlS := TControl(Sender);

  form1.label0.Width := TctrlS.width - 2;
  form1.label0.Left  := TctrlS.left + 1;
  form1.label0.top   := TctrlS.top + TctrlS.height;
end;

The point of the solution is that for the RichEdit component editing window we find the owner of this window, which is 'RichEdit1'.
Unfortunately, clicking on the RichEdit menu will not work.

Derek, your idea is interesting.

Components on Panel, GroupBox, PageControl are supported.