Frage zu onKeyDown

[gkoeder]

Hallo!

Bei meinem Programm werte ich über das Event 'OnKeyDown' diverse Tasten aus. So prüfe ich z.B. ob der Anwender in einem Edit-Feld die Return-Taste gedückt hat, mittels

If Key = vk_Return then SetFilter(edt_Filter.Text); SetFilter setzt einen Filter entsprechend der Eingabe im Edit-Feld und schliesst dann das Fenster. Alles funktioniert soweit ganz gut und fehlerfrei. Nur einen kleinen Schönheitsfehler hat das ganze: Sobald das Fenster verschwunden ist, ertönt ein Warnton (Der gleich Ton, als ob man versucht, trotz modal angezeigtem Dialogfenster, die Hauptanwendung zu aktivieren).
Wieso wird dieser Ton erzeugt? Das angezeigte Fenster ist kein modales Fenster. Ganz im Gegenteil wird es eh entfernt, wenn der Anwender es deaktiviert.

Den gleichen Effekt mit dem "Warnton" habe ich auch bei meiner ShellListe. Hier werte ich auch per OnKeyDown Tasten aus:

Delphi-Quellcode:

  // STRG + SHIFT -> Aktuell fokussierten Eintrag auswählen
  If (Key = VK_SPACE) and (Shift = [ssCtrl])  then
  Begin
    Node := ShellList.FocusedNode;
    if Assigned(Node)
    then ShellList.Selected[Node] := Not ShellList.Selected[Node];
  End;

Jeder ausgewählte Eintrag wird mit einem nervigen 'Ploing' akustisch bestätigt.

Hat jemand eine Idee, woran das liegen könnte?

Danke!

Viele Grüße
Gerald

[Lannes]

Hallo,

Bei deinem ersten Beispiel könnte das Editfeld der Auslöser für den Warnton sein.
Probier doch mal folgendes, aber in OnKeyPress:

Delphi-Quellcode:

If Key = #13 then
  begin
  Key := #0;//unterbindet den Ton
  SetFilter(edt_Filter.Text);
  end;

Bei der Shellliste

[gkoeder]

Zitat von Lannes:

Hallo,

Bei deinem ersten Beispiel könnte das Editfeld der Auslöser für den Warnton sein.
Probier doch mal folgendes, aber in OnKeyPress:

Delphi-Quellcode:

If Key = #13 then
  begin
  Key := #0;//unterbindet den Ton
  SetFilter(edt_Filter.Text);
  end;

Bei der Shellliste

Hallo Lannes,

Danke für den Tipp ! Der Ton beim Edit-Feld ist nun weg. Bei der ShellListe klappt das leider nicht - onKeyPress liefert ja nur eine Taste

Viele Grüße
Gerald

[gkoeder]

Hab' jetzt auch bei der ShellList die Key-Variable auf Null gesetzt.

Delphi-Quellcode:

  // STRG + SHIFT -> Aktuell fokussierten Eintrag auswählen
  If (Key = VK_SPACE) and (Shift = [ssCtrl])  then
  Begin
    Key := 0;  // Ton abschalten
    Node := ShellList.FocusedNode;
    if Assigned(Node)
    then ShellList.Selected[Node] := Not ShellList.Selected[Node];
  End;

Der Ton ist nun verschwunden. Der Fehler ist nun zwar weg, ich frage mich aber, wieso an diesen Stellen der Warnton erzeugt wurde und warum er auf diese Weise unterbunden wurde

Greetings
Gerald

[gugelhupf]

Eine Frage zu dem Thema: WO genau wird DIESER Warnton denn erzeugt, also in welcher Unit? Windows? Messages? Oder wo? Weiß das zufällig jemand? Wäre ziemlich dringend, danke!

[SirThornberry]

im windows-system wird der Warnton erzeugt. Das TEdit etc. ist nicht vollständig in Delphi umgesetzt sondern kappselt das Edit welches Windows mitbringt. Und wenn da ein ungültiges Zeichen versucht wird einzugeben gibt es den Ton als Hinweis das dieses Zeichen nicht möglich ist.

[gugelhupf]

Und wie kann ich ihn ausschalten, ohne auf OnKeyPress zu reagieren und Key := #0 bzw. Abort zu setzen? Ist das überhaupt möglich oder bleibt nur die Möglichkeit von Key := #0? Es muss doch auch möglich sein den Ton in der Unit Windows, oder Messages o.ä. ausschalten zu können. Weißt Du welche SendMessage den Ton auslöst???

[SirThornberry]

Zitat von gugelhupf:

Und wie kann ich ihn ausschalten, ohne auf OnKeyPress zu reagieren und Key := #0 bzw. Abort zu setzen? Ist das überhaupt möglich oder bleibt nur die Möglichkeit von Key := #0? Es muss doch auch möglich sein den Ton in der Unit Windows, oder Messages o.ä. ausschalten zu können. Weißt Du welche SendMessage den Ton auslöst???

Stop! Wie bereits erwähnt kommt die Nachricht vom Windows-System. Wenn der Nutzer den Ton nicht mehr hören will schaltet er ihn selbst ab. Man sollte sich nie anmaßen die Einstellungen des Nutzers zu ändern.

Nutzer welche den Ton nicht hören wollen können diesen bei den akustischen Signalen deaktivieren.

[gugelhupf]

Ja schon, aber dieses Event nenne ich es mal kommt doch durch ein SendMessage oder irre ich mich? Und ob der eingeschaltet oder ausgeschaltet sein soll bzw. ob ich mir anmaßen soll diese Einstellung zu ändern tut nichts zur Sache. Ich möchte nur wissen, welche SendMessage diesen Ton auslöst, nur ich hab keine Ahnung wo ich suchen soll (in welcher Unit).

[SirThornberry]

wenn irgend eine Taste gedrückt wird, wird eine Message gesendet. Würde diese Message nicht gesendet werden, würde nichts passieren (denn dann wüsste die Anwendung von keiner Taste). Für den Ton gibt es keine extra Message! Das Edit welches Windows mitbringt löst intern diesen Ton aus wenn eben eine ungültige Taste ankommt.