Enter hat im KeyPress, wenn es "normal" gedrückt wird die #13 -> nimmt man Strg dazu kommt eine #10 raus. k.A. ob das ganze noch Nebenwirkungen hat. Bei meinem kurzen Test hat es funktioniert.
Delphi-Quellcode:
procedure TForm12.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #10 then
key := #0
end;
Zitat von
Der.Kaktus:
Hallo, nimm an stelle von 13 "#13"..geht prima
Schonmal nem Word ne #13 zugewiesen?
Da kommt dann etwas was so heißt "Inkompatible Typen Word und Char".
Deine KeyDown Methode kannst du dann rausschmeißen.
Und nochwas zur Formatierung des Quelltexts: schrecklich!
Sähe das so nicht besser aus?
Delphi-Quellcode:
procedure TForm1.EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
i:integer;
begin
if (Shift = [ssCtrl]) and (Key = ord(13)) then
begin
key :=0;
showmessage('Crtl-Shift erkannt.');
end;
end;
Gruß
Reli