Zitat von
Matze:
Hallo!
Im OnKeyPress kann man eine taste ja allgemein so abfangen:
Key := #0;
da dort Key vom Typ Char ist. Im OnKeyDown ist es jedoch ein Word. Folgendes geht leider nicht:
Key := 0;
Da passiert einfach nichts, der Text wird normal eingefügt. Wie löse ich das Problem?
Was spricht gegen OnKeyPress, bei einem Edit-Felt/Memo funzt das so: (habe kein SynEdit)
Delphi-Quellcode:
// OnKeyPress Edit1
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
#13: begin
Edit1.Text := Edit1.Text + '
';
Key := #0;
end;
#32: begin
Edit1.Text := Edit1.Text +'';
Key := #0;
end;
'a': begin
Edit1.Text := Edit1.Text +'ä';
Key := #0;
end;
end;
end;
...Man muss halt nur noch den verflixten Cursor richtig positionieren.