THintWindow; exposing the WMLButtonDown event

[alogrep 0]

Hi

I got this neat piece of code froma OpenAI GPT searc

type
  TMyHintWindow = class(THintWindow)
  protected
    procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
  end;

procedure TMyHintWindow.WMLButtonDown(var Message: TWMLButtonDown);
begin
  // Close the hint window when clicked
  ReleaseHandle;
end;

I put the first part in the interface section, the second in the implementation.

But the the WMLButtonDown   (clic left button, right?) never gets triggered.

What is missing to make it work?

Also, in case I make it work, I lso have set the timerr to hide it after 2 seconds. In the timere I use wh (The TMyHintWindow control)

if wh <> Nil then begin   

  wh.releasehandle.

  wh.free;

  wh:=Nil;

end.

How can I make the same inside  the WMLButtonDown event?

Thanks very much.

 

  wh

 

[Lars Fosdal 1864]

Did you override the HintWindowClass before Application.Run is executed?
https://docwiki.embarcadero.com/Libraries/Athens/en/Vcl.Controls.THintWindowClass

[Remy Lebeau 1611]

The correct link is https://docwiki.embarcadero.com/Libraries/en/Vcl.Forms.HintWindowClass

 

Also, you don't need to assign the HintWindowClass before Application.Run() is called (though you certainly can). Just be sure to assign it before any hints are displayed at runtime. For instance, in the MainForm's OnCreate event would suffice.

 

Also, if you don't want to override the hint behavior globally, you can customize the hint on a per-invocation basis by using the TApplication[Events].OnShowHint event. It gives you access to a THintInfo describing the hint that is about to be displayed, which has a HintWindowClass field (amongst many others). 

Edited 5 hours ago by Remy Lebeau

[alogrep 0]

Thanks both. But it still does not work. This is the code.

I crated a unit

unit myhint;

interface
   uses classes, messages,graphics,controls, comctrls;
type
  TMyHintWindow = class(THintWindow)
  protected
    procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
  public
    constructor Create(AOwner: TComponent); override;
  end;
implementation
constructor TMyHintWindow.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Color := clinfobk;
end;

procedure TMyHintWindow.WMLButtonDown(var Message: TWMLButtonDown);
begin
  // Close the hint window when clicked
  ReleaseHandle;
end;

end.

unit myhint;

interface
   uses classes, messages,graphics,controls, comctrls;
type
  TMyHintWindow = class(THintWindow)
  protected
    procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
  public
    constructor Create(AOwner: TComponent); override;
  end;
implementation
constructor TMyHintWindow.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Color := clinfobk;
end;


procedure TMyHintWindow.WMLButtonDown(var Message: TWMLButtonDown);
begin
  // Close the hint window when clicked
  ReleaseHandle;
end;

end.

in the dr:

 

    Application.Initialize;
    HintWindowClass:=TMyHintWindow;

Then in the form  i include myhint.pas. In the FormCreate I crete the control

     wh:=TMyhintWindow.crete(nil)

The wh constructor is executed (the beakpoint is triggered).

But when I clkic on the hintt, the 

 

procedure TMyHintWindow.WMLButtonDown(var Message: TWMLButtonDown);
begin
  // Close the hint window when clicked
  ReleaseHandle;
end;

 

is not triggered.

[Anders Melander 2019]

A window will only receive mouse messages if the mouse cursor is within its client area or it has captured the mouse. I don't think a hint window will satisfy either of those criteria.

 

See also: https://learn.microsoft.com/en-us/windows/win32/inputdev/about-mouse-input

[Remy Lebeau 1611]

You don't need to create a instance of your hint class. By setting the HintWindowClass variable, the VCL will instantiate your class when needed.