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

Delphi-Quellcode:

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 :gruebel:

[gkoeder]

Zitat:

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 :gruebel:

Hallo Lannes,

Danke für den Tipp :thumb: ! 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 :coder2:

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:

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.

[gugelhupf]

Ja und was ist das dann für ein Ton, der ausgelöst wird, wenn ich ein ShowModal-Fenster habe und auf's Hauptfenster wechseln will? Da ertönt auch genau dieser Ton. Da findet auch kein OnKeyPress statt, sondern eine Message, die diesen Ton auslöst, oder nicht? Genau diese Message, die den Ton auslöst, will ich!

[SirThornberry]

es gibt keine Message extra für den Ton!

Beispiel: Deine Mutter sagt, male etwas schönes und bringe es deinem Vater. Du malst etwas und bringst es ihm dann. Ob dein Vater sich freut oder nicht hängt von dem Bild ab was du ihm bringst, dazu musst du ihm nicht extra sagen: "jetzt darfst du Emotionen zeigen".

Deine Mutter ist sozusagen die Tastatur, du bist die Message und dein Vater ist das System welches die Message erhält und optional je nach Einstellungen noch Emotionen zeigt.