Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi <Strg> + <Leer> Abfangen, aber Leerzeichen nicht zeichnen

**Martin K**

Noch etwas einfacher wäre das hier:

Delphi-Quellcode:

			procedure TForm3.Memo1KeyPress(Sender: TObject; var Key: Char);

begin

  if (Key = ' ') and (GetKeyState(VK_CONTROL) < 0) then

    Key := #0;

end;

Martin K Registriert seit: 20. Okt 2005 919 Beiträge Turbo Delphi für Win32	#8 Re: <Strg> + <Leer> Abfangen, aber Leerzeichen n 10. Feb 2007, 22:58 Noch etwas einfacher wäre das hier: markieren Delphi-Quellcode: procedure TForm3.Memo1KeyPress(Sender: TObject; var Key: Char); begin if (Key = ' ') and (GetKeyState(VK_CONTROL) < 0) then Key := #0; end; Mit den Menschen ist es wie mit Computern - es gibt Nullen und Einsen.
	Zitat

Einzelnen Beitrag anzeigen

Re: <Strg> + <Leer> Abfangen, aber Leerzeichen n