TEdit soll keinen Ton mehr von sich geben und Tab abfangen

[OregonGhost]

Ich verwende ein TEdit zur Bearbeitung einer Datenmenge. Wenn man Enter drückt, soll sich das TEdit eine Zeile nach unten bewegen, wenn man Shift+Enter drückt eine Zeile hoch. Funktioniert auch, nur leider kommt aus den Lautsprechern jedesmal ein *DING* und genau das will ich weghaben. Wie mach ich das?

Außerdem soll man mit TAB und Shift-TAB nach rechts und links navigieren können, aber wie fange ich TAB ab? Wenn man TAB drückt, wird das nächste Steuerelement ausgewählt, aber ein KeyDown-Ereignis findet gar nicht erst statt...

[Christian Seehase]

Moin OregonGhost,

schau Dir doch mal diesen Thread an, speziell das Posting von Paul jr.

lästiges beepen abstellen ??

Ich hab's jetzt eben nur mal kurz überflogen, aber damit müssten sich, glaube ich, Deine beiden Probleme lösen lassen.

[CalganX]

Alle Beiträge ab dem wo Paul jr. *behauptet* er würde jetzt die komplette Funktion posten, die seiner Meinung nach keine Wünsche übriglasse, sind für mich nicht zu sehen... Hat jemand eine Lösung?

Chris

PS: Mich würde das auch nämlich mal interressieren...

[jbg]

Hast du dir auch die 2. Seite dazu angeschaut? Dort wird der Code wiederholt.

[CalganX]

*??* Jetzt geht's... Gestern gab's da irgendwie keine 2. Seite...
Naja, auch egal...

Chris

[OregonGhost]

Yo, das beantwortet schon mal meine Frage zum Thema ENTER, vielen Dank. Falls es einen interessiert, ich brauchte sogar nur so kurzen Code:

Code:

  case Key of
    VK_RETURN, VK_TAB: begin  // ENTER oder TAB-Taste erkannt
      PeekMessage(Msg, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
    end;
  end; // CASE Key OF

weil der Code im OnKeyDown des TEdit liegt.
Der Haken ist nur, TAB generiert nach wie vor kein OnKeyDown-Event, also kann ich das eigentlich auch nicht darin abfangen ;c( Was also tun?

[toms]

http://www.swissdelphicenter.ch/de/showcode.php?id=591

[OregonGhost]

YO, das war's - danke ;c)