Tastatureingabe abfangen und ersetzen

**blooddog_90**

Hallo, ich will bei einem Memofeld, verhindern das beim Memofeld die Leertaste erscheint.
D.h. ich muss den Tastendruck irgendwie abfangen. Ich schätze in "OnKeyDown" werde ich das realisieren mit Hilfe
von "Key".

Ja aber wie?

Ich bin euch sehr dankbar für eure Hilfe.

**s.h.a.r.k**

Ich nutze immer das OnKeyPress-Ereignis:

markieren

Delphi-Quellcode:

			procedure TMemo1.OnKeyPress(Sender: TObject; var Key: Char);

begin

  if (key = #32) then

  begin

    key := #0;

  end;

end;

**daywalker9**

hi!

fang das keypress von deinem TMemo ab und mach folgendes:

markieren

Delphi-Quellcode:

if key= #32 then key:=#0;

schade zu spät

**blooddog_90**

Ja, das hab ich schon mal so gehabt. Nur ohne Raute Zeichen

Dann danke ich euch recht herzlich!

Und wie entferne ich es sofort beim Copy&Paste?

**s.h.a.r.k**

Das ist eine andere Frage, daher solltest du, nach ausreichender Suche, einen anderen Thread eröffnen! Hier im Forum solltest du aber alles finden was du brauchst. Ich habe damals die Windows-Botschaften abgefangen und den Text dann entsprechend geparst,

Tastatureingabe abfangen und ersetzen

Tastatureingabe abfangen und ersetzen

Re: Tastatureingabe abfangen und ersetzen

Re: Tastatureingabe abfangen und ersetzen

Re: Tastatureingabe abfangen und ersetzen

Re: Tastatureingabe abfangen und ersetzen

Forumregeln

blooddog_90 Registriert seit: 23. Sep 2007 24 Beiträge Turbo Delphi für Win32	#1 Tastatureingabe abfangen und ersetzen 11. Jan 2010, 19:34 Hallo, ich will bei einem Memofeld, verhindern das beim Memofeld die Leertaste erscheint. D.h. ich muss den Tastendruck irgendwie abfangen. Ich schätze in "OnKeyDown" werde ich das realisieren mit Hilfe von "Key". Ja aber wie? Ich bin euch sehr dankbar für eure Hilfe.
	Zitat

s.h.a.r.k Registriert seit: 26. Mai 2004 3.159 Beiträge	#2 Re: Tastatureingabe abfangen und ersetzen 11. Jan 2010, 19:45 Ich nutze immer das OnKeyPress-Ereignis: markieren Delphi-Quellcode: procedure TMemo1.OnKeyPress(Sender: TObject; var Key: Char); begin if (key = #32) then begin key := #0; end; end; »Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
	Zitat

daywalker9 Registriert seit: 1. Jan 2010 Ort: Leer 594 Beiträge Delphi XE3 Professional	#3 Re: Tastatureingabe abfangen und ersetzen 11. Jan 2010, 19:47 hi! fang das keypress von deinem TMemo ab und mach folgendes: markieren Delphi-Quellcode: if key= #32 then key:=#0; schade zu spät Lars
	Zitat

blooddog_90 Registriert seit: 23. Sep 2007 24 Beiträge Turbo Delphi für Win32	#4 Re: Tastatureingabe abfangen und ersetzen 11. Jan 2010, 21:14 Ja, das hab ich schon mal so gehabt. Nur ohne Raute Zeichen Dann danke ich euch recht herzlich! Und wie entferne ich es sofort beim Copy&Paste?
	Zitat