All the code is attached to the form - the components have no code for this feature. A global TCursor points to message.db. As the mouse moves, the code determines which object it is over and displays the associated message. To clear the status line on mouseOut, simply define a blank message for whatever is behind the component.

Var
 Message_Help_TC  TCursor
endVar Var

method open(var eventInfo Event)

  if eventInfo.isPreFilter() then
    ;// This code executes for each object on the form:

  else
    ;// This code executes only for the form:
    Message_Help_TC.open("message")
  endif

endmethod open

method mouseMove(var eventInfo MouseEvent)
var 
  tempUI UIObject
endvar

  if eventInfo.isPreFilter() then
    ;// This code executes for each object on the form:
    eventInfo.getTarget(tempUI)
    if Message_Help_TC.locate("Object Name", tempUI.name) then
      message (Message_Help_TC."Message Help")
    endif
  else
    ;// This code executes only for the form:

  endif

endmethod mouseMove

The string assigned to Status Bar Text is displayed when the field is selected or the button is pressed (ie, you have to click to see the string).

URL: http:// cpcug.org / user / clemenzi / technical / Databases / MouseOverHelp.html