[Lazarus] Application.OnShowHint problem

[Frank Poretzky]

Hi!

A method

| procedure TFormTest.DoAppOnShowHint( var HintStr: String;
|                                      var CanShow: Boolean;
|                                      var HintInfo: THintInfo);
|   begin
|     CanShow := true;
|     HintStr := HintStr + ' - Modified';
|   end;

assigned to Application.OnShowHint is called neither with

| {$Mode ObjFPC}
| {$H+}
...
| procedure TFormTest.DoFormOnCreate( Sender: TObject);
...
| Application.OnShowHint := @DoAppOnShowHint;

nor with

| {$Mode Delphi}
| {$H+}
...
| procedure TFormTest.DoFormOnCreate( Sender: TObject);
...
| Application.OnShowHint := DoAppOnShowHint;

It's always the original Hint string of the respective control which
shows up.

What may be wrong?

Lazarus 1.0.14 / FPC 2.6.2 / SVN Rev 43446 / i386-win32-win32/win64

Thanks

Frank