bitbtn.OnMouseEnter does not work on macOS
lazarus / 33-macOS - Mac OS X

----------------------------------------------------------------------
teriyaki · 2022-01-22 16:24

I can set the function, but OnMouseEnter is never triggered



I checked at
https://wiki.freepascal.org/Lazarus_2.0.0_release_notes

and found out that
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
MouseEntered deprecated/missingOld behavior: No warning on using
MouseEnteredNew behavior: Warning: Symbol "MouseEntered" is
deprecated: "use MouseInClient instead"Reason: Delphi
compatibilityRemedy: use property MouseInClient instead
but there is no onMouseInClient function for TBitBtn

your comment welcome

----------------------------------------------------------------------
winni · 2022-01-22 17:14

Hi!

Use this:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm1.BitBtn7MouseMove(Sender: TObject; Shift: TShiftState; X,      
        Y: Integer);begin  if BitBtn7.MouseInClient then
ShowMessage('MouseTrap');end; 
Winni

----------------------------------------------------------------------
teriyaki · 2022-01-23 09:03

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TmainForm.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y:
Integer);begin    if BitBtn1.MouseInClient then //here can be
triggered   begin      ShowMessage('MouseTrap');//here can NOT be
triggered   end;

----------------------------------------------------------------------
winni · 2022-01-23 10:56

Hi!

MouseInClient is inheritated from Tcontrol!

To make it more clear use this:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i var
Global_I : Integer = 1;...procedure TmainForm.BitBtn1MouseMove(Sender:
TObject; Shift: TShiftState; X,      Y: Integer);    begin          
 if BitBtn1.MouseInClient then //here can be triggered       begin   
  inc(Global_I);       BitBtn1.Caption := 'MouseInClient
'+IntToStr(Global_I);       end;  
Winni