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
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
