[FMX beginner] Key Handling

[Mike Warren 2]

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 11]

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 2]

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 237]

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, 2023 by programmerdelphi2k

[Mike Warren 2]

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 237]

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

[Mike Warren 2]

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 237]

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, 2023 by programmerdelphi2k

[Mike Warren 2]

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 2]

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 237]

voted

[MrZ 1]

Very annoying, I've also voted. Has anyone found a workaround?

[Mike Warren 2]

14 hours ago, MrZ said:

Very annoying, I've also voted. Has anyone found a workaround?

I'd love to know if there is a workaround too. My program is still in development, but I cannot release it with such a bug. That would be very unprofessional behavior. I go to a lot of trouble to make my applications as bug free as possible.

If this is not fixed by the time I get close to release I will need to find a workaround myself.

[Mike Warren 2]

Also, my report was closed as it's considered a duplicate.

 

Please vote on https://quality.embarcadero.com/browse/RSP-33860

 

I see this was reported as far back as 10.3. I really don't understand how almost every Delphi FMX developer is not being caught by this. Do Delphi developers just accept unprofessional behavior from their applications?

 

[Sherlock 663]

Voted.

I guess noone uses shortcuts anymore. Especially FMX applications tend to be distributed for Android or iOS. No shortcuts there...only gestures and taps. So this might really be an oversight due to lack of use.

[Mike Warren 2]

I put a bit of time into this and found where the messages are being passed to Windows in FMX.Platform.Win.

 

As a quick and dirty test I copied FMX.Platform.Win to my project source folder and made some modifications to it.

 

1/ I created a global variable I called SuppressWM_SYSCHAR.

2/ In my form's KeyDown event I checked if Alt plus a letter was being pressed, and if so, I set SuppressWM_SYSCHAR to true.

3/ At line 837 I check SuppressWM_SYSCHAR and if false I allowed DispatchMessage(Msg); to be called

4/ A timer set to 50mS in my form would reset the SuppressWM_SYSCHAR back to False

 

I discovered that this also suppressed menu accelerator keys.

 

I then compiled for MacOS and discovered that shortcuts using Alt+ also cause a system beep there. I also discovered that the Alt+ keys generate different message codes under MacOS.

 

It was at this point that I decided to scrap the whole idea of using Alt+ keys for any shortcuts on button activation since these don't work on MacOS anyway.

 

I changed any shortcuts to not use Alt+ alone.

 

I feel defeated by this and just cannot afford to put any more time into trying to understand it.

 

Edited July 9, 2023 by Mike Warren

[Mike Warren 2]

This issue is mostly fixed in D12. Only tested on Windows so far.

Accelerator keys work in TMainMenu and on TButton.Text without causing a Windows beep. Shortcuts using Alt+<letter> do not work in menus, but they do work in actions.

 

Alt + the first letter of a root main menu item will open that menu and then the first letter of each sub-menu item will highlight it, but not select it.

 

So even though this is not exactly the behaviour in VCL, at least it's workable.

[JohnLM 22]

@ Mike - I just came across this topic and thought I give you a thanks for the info. But.., I wish I could test some of the suggestions, including yours, but I can't since I lost my beep function when I disabled one of the windows services some time ago.  I was trying to stop my HDD from being accessed so much.  In that quest, I mistakenly removed the beep in windows (using win7) when I removed a service and I can not figure out how to restore that portion of the service to restore my windows beep.  The only time I can hear the beep is when I click on the volume bar.  I use the beep a lot in my apps. I sometimes call it with beep(x,y) (if I move the winapi.windows as the last uses position. 

 

If you or anyone knows of which windows service is responsible for the windows beep, please tell me so that I can go in an re-enable it. TIA 

[Lajos Juhász 295]

1 hour ago, JohnLM said:

f you or anyone knows of which windows service is responsible for the windows beep, please tell me so that I can go in an re-enable it. TIA 

This is off topic but you can try https://appuals.com/how-to-disable-beeping-on-errors-on-windows-7-8-and-10/. Maybe you did: sc stop beep && sc config beep start= disabled