Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Im OnKeyDown Taste abfangen

  Alt 15. Aug 2005, 17:01
Hallo Tyrael!

Danke, aber auch das geht nicht. Das seltsame ist, dass Key := 0; bei der Enter-Taste funktioniert:

Delphi-Quellcode:
if ssShift in Shift then
begin
   Case Key of
    //Geht ==> '
'
VK_RETURN: begin
Form1.InsertAtCaret(
'
', ActSynEdit.CaretX, ActSynEdit.CaretY);
Key := 0;
end;
//geht nicht ==>
' ' (Leerzeichen am Ende)
VK_SPACE : begin
Form1.InsertAtCaret(
'', ActSynEdit.CaretX, ActSynEdit.CaretY);
Key := Ord(#0);
end;
end;
end;
  Mit Zitat antworten Zitat