[FMX beginner] Key Handling

[Mike Warren 0]

I've been using Delphi since 1996, but have been fixed at D7 for many years. I've finally upgraded to D11.3 and am creating my first FMX based application, targeting Win64 and Android64.

 

I added an ActionList and added an Action with a shortcut of Alt+X.

 

The problem I have is that the Alt+X key press triggers a windows beep sound.

 

This is something I do regularly in VCL based apps. As soon as an action with a shortcut is defined the Windows beep does not fire.

 

How do I fix this in a FMX based app?

 

[Vincent Gsell 8]

Hi !

- D7 VCL to D11.3 FMX : what a huge jump. 😉 ! 

- just tested under a blanck 11.1 fmx app : I do not have the problem. Event trigered without system beep (I put just a showMessage in the event ).

Could you teste in a same way under 11.3 ? (blanck app)

- Have you something special in the event ? 

[Mike Warren 0]

Thanks for the reply Vincent.

 

To duplicate this, do the following:

1/ Create a new blank multi-device application

2/ Add an ActionList component

3/ Add an Action the the ActionList

4/ Set the Shortcut for this action to Alt+X

5/ In the OnExcecute event of the Action, add Close;

 

Run the program and press Alt+X. The program will close and a Windows Beep will be heard.

 

Do exactly the same thing with a VCL program and no beep is heard.

 

All this on D11.3 and Windows 11

 

 

[programmerdelphi2k 196]

if fact, the "BEEP" came from OS messages, not any Delphi components, like ActionList or anyother... VCL or FMX

you can try "supress" all beeps using a "windows API"...

• NOTE: in my VCL (empty) project or FMX (empty) project... pressing ALT + any_key  = BEEP!!!
  • then, does not matter if VCL or FMX = beep always sounds

implementation

{$R *.fmx}

uses
  Winapi.Windows;

procedure TForm1.Action1Execute(Sender: TObject);
begin
  Close;
end;

// Disable system beep
  SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_SENDWININICHANGE); 

// Enable system beep
  SystemParametersInfo(SPI_SETBEEP, 1, nil, SPIF_SENDWININICHANGE);

 

Edited March 20 by programmerdelphi2k

[Mike Warren 0]

Thanks for your reply. I don't want to disable the system beep globally.

 

With a VCL based application, anything (Action, Button etc.) that has a shortcut assigned to it will prevent the key message for the shortcut being passed on to Windows so Windows will not play its default beep.

 

The same behavior can be seen by adding a button instead of an action and setting the button's Text (Caption) property to &X.

 

This is starting to look like a bug in FMX to me, or at least missing functionality.

 

[programmerdelphi2k 196]

for me, be VCL or FMX always I have a beep...

[Mike Warren 0]

3 hours ago, programmerdelphi2k said:

for me, be VCL or FMX always I have a beep...

Well, they shouldn't, and don't for me. VCL applications behave correctly, as they have done since D1 (yes, I've been using Delphi that long). FMX application process the keystrokes and then pass them to Windows. It should not do this.

Here's a video demonstrating the issue.

 

[Harry Stahl 1]

That seems to be not OK. Also if one use a TTabControl and have some tabitems on it (eg &Test and &BTest) then the selection of this items with Alt+T or Alt+B works, but there is a beep.

Perhaps it would be worth to make a Quality report... 

[programmerdelphi2k 196]

in  fact, ALT+any-key beeps happens same that your app has just 1 form and nothing more... in RAD 11.3 here (VCL or FMX)  

Edited March 21 by programmerdelphi2k

[Mike Warren 0]

It's normal to get a beep for Alt+key combinations that are not handled by the application, but it the app handles the key combination it should be swallowed by the app so Windows doesn't get it. VCL has always done this.

I'll make a quality report.

[Mike Warren 0]

On 3/27/2023 at 7:25 PM, Mike Warren said:

I'll make a quality report.

For anyone interested:

https://quality.embarcadero.com/browse/RSP-41295

[programmerdelphi2k 196]

voted