Behandlung von RETURN im Memo Feld

[Relicted]

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