How to make a tooltip?
lazarus / 7-LCL

----------------------------------------------------------------------
Leledumbo · 2008-04-15 05:30

What's the component to create it? I've tried PopupNotifier but it
looks ugly.
(http://img149.imageshack.us/img149/6106/tooltipsm4.th.png)

----------------------------------------------------------------------
theo · 2008-04-15 08:20

See properties Hint and ShowHint of TControl descendants.

----------------------------------------------------------------------
Leledumbo · 2008-09-05 04:23

Sorry for re-opening old topic. The one showed by Hint property is
different from Windows' standard tooltip (rounded rectangle, fade-in
effect, icons, etc.). I need to restrict input in an TEdit to numbers,
so I declare this:
Code: [Select]
procedure TMainForm.Edi1KeyPress(Sender: TObject; var Key: Char;
const
  Enter = #13;
  Backspace = #8;
  Del = #46;
begin
  if not(Key in [Enter,Backspace,Del,'0'..'9']) then begin
    Key:=#0; // override to "nothing"
    // Show a tooltip saying something like: "only numbers are
allowed!" (with (X) icon if possible)
  end;
end;

I need to fill that code. But how? Cross-platform solution, please...
under WinAPI, I can simply call CreateWindowEx with proper arguments.