Windows MessageBeep unterdrücken

[PaddyVII]

Heyy Delphianer,

ich weiß, ihr habt das Thema langsam satt, brauch aber trotzdem mal eure Hilfe! habe jetzt dann bald halb DP und Google danach abgesucht, aber keine der Lösungen passt:

alsoo ich hab ein Stringgrid bei dem wird per shortcut von alt + '+' eine spalte hinzugefügt- okay!

nur jedes mal wenn das passiert, kommt ein Ton, den ich gerne unterdrücken würde - und wie gesagt ich hab jetzt alles ausprobiert: Key = #0 setzten in sämtlichen Ereignissen der Form und der Stringgrid aber Windows peept einfach vor sich hin... das Problem ist, dass in Key alt gar nicht aufgeführt ist, und mit VK komm ich da auch nicht weiter...

Bitte um Unterstützung


lg


PaddyVII

[himitsu]

Der Beep kommt nicht von deinem WM_KEYDOWN, sondern vom Nachfolgendem WM_SYSCHAR.

Wie wäre es alternativ mit Strg + "+" (die schnellste und einfachste Lösung )

[Sir Rufo]

Der einfachste und auch vorgesehene Weg ist das Verwenden einer TActionList und einer dort angelegten TAction, wo man unter TAction.SecondaryShortCuts einfach ganz simpel den Eintrag 'Alt++' hinzufügt.

Über TAction.OnExecute steuert man, was ausgeführt werden soll und mit TAction.OnUpdate kontrolliert man, ob das aktuelle ausgeführt werden kann soll.

[PaddyVII]

tjaa, strg + '+' ist leider auch schon vergeben....


jaa dann schau ich mir das ganze mit der actionlist mal an, danke dafür

[Mavarik]

Sowas?

Delphi-Quellcode:

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

Mavarik

[uligerhardt]

Zitat von Mavarik:

Sowas?

Delphi-Quellcode:

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

Mavarik

Don't use global state to manage a local problem