OnKeyDown Zeichen abfangen

[daniel8520]

Hallo,

ich hab ein kleines Problem:
Ich will das Dollar-Zeichen - $ - in einem Memo nicht zur Eingabe freigeben. Hab daszu folgenden Code, im OnKeyDown Ereignis, aber irgendwie will der nicht funktionieren. Was ist daran falsch?

Delphi-Quellcode:

If (Shift = [ssShift]) and (Key = 52) then
    Key := 0;

Könnt ihr mir helfen?


Danke im Vorraus.

[Filou]

Problem: Der Buchstabe wird eingefügt, ohne das du diesen Vorgang abfangen kannst.

Lösung: Gehe Edit1.Text mit einer for schleife durch, und lösche dabei alle $-Zeichen

[EDIT]edit1.text:=StringReplace(edit1.text,'$','', [rfReplaceAll]);[/EDIT]

[daniel8520]

Gerade diese Lösung wollte ich umgehen, aber wenn's wirklich nicht anders geht, werd ich es wohl so machen müssen.

Danke!

[jim_raynor]

Schau dir doch mal die Werte für Key und Shift im Debugger an, wenn du das entsprechende Zeichen drückst. Vom Ansatzher funktioniert den Weg schon. Eventuell musst du es im OnKeyPress machen.