Pling bei Focuswechsel

[NoGAD]

Hallo, kann man den Sound abstellen, der bei einem Focuswechsel entsteht?

Delphi-Quellcode:

 if Key = VK_RETURN then
      PostMessage(GetParentForm(Self).Handle, wm_NextDlgCtl, Ord((ssShift in Shift)), 0);

Da macht es immer Pling.

LG Mathias

[dummzeuch]

Zitat von NoGAD:

Hallo, kann man den Sound abstellen, der bei einem Focuswechsel entsteht?

Delphi-Quellcode:

 if Key = VK_RETURN then
      PostMessage(GetParentForm(Self).Handle, wm_NextDlgCtl, Ord((ssShift in Shift)), 0);

Da macht es immer Pling.

Key := 0;

[NoGAD]

Huhu. Klappt leider nicht.

Delphi-Quellcode:

if Key = VK_RETURN then
  begin
      PostMessage(GetParentForm(Self).Handle, wm_NextDlgCtl, Ord((ssShift in Shift)), 0);
      Key := 0;
  end;

Es plingt immer noch

[KodeZwerg]

Zitat von NoGAD:

Es plingt immer noch

Ich habe noch nicht gecheckt was Du da aufrufst aber seitens von Windows ertönt ein "Bling" wenn Du zum Beispiel versuchst etwas einen Fokus zu geben was keinen Fokus haben kann, oder das was den Fokus bekommen soll ist noch nicht bereit dafür...

[KodeZwerg]

Vielleicht klappt ja Dein Vorhaben besser über ein "OnKey"-Event indem du SelectNext(Screen.ActiveControl, not BOOL(GetKeyState(VK_SHIFT) and $80), True); vielleicht sowas für "VK_RETURN" abfängst.

[himitsu]

OnKeyPress wird es wohl nicht sein,
aber was nutzt du denn nun?
OnKeyUp oder OnKeyDown?

Durch Key:=0 wird die nachfolgende Standard-Behandlung der Komponenten "unterbunden".
Und von da kommt halt der Piep. Oder bei einem Button würde dort durch Enter die Taste gedrückt.



Andere Lösung: In den Windowseinstellungen den Sound deaktivieren.
Die WaveDatei für dieses Ereignis abschalten ... das wird zwar immernoch das Beep-Ereignis ausgelöst, aber man hört nichts mehr.
(ich kann jetzt sowas nicht ausprobieren, da ich diesen Sound nicht mehr höre )

[NoGAD]

Zitat von himitsu:

OnKeyUp oder OnKeyDown?

OnKeyUp

Zitat von himitsu:

Durch Key:=0 wird die nachfolgende Standard-Behandlung der Komponenten "unterbunden".
Und von da kommt halt der Piep.

Kann man das an der Stelle programmtechnisch unterbinden? Vielleicht, indem man statt Key:=0 eine andere Taste übergibt, z.B. ein ALT oder Strg?


@KodeZwerg, danke für die Ideen. Ich teste heute früh dann weiter.

[KodeZwerg]

Zitat von NoGAD:

OnKeyUp

Da wird die Taste bereits ausgeführt. Wechsel auf das Down event.

[BerndS]

Das Pling sollte verschwinden, wenn man auch KeyPress behandelt.
Etwas so:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    Key := #0;
end;

[Andreas13]

[gelöscht]