Im OnKeyDown Taste abfangen

[turboPASCAL]

Zitat von Matze:

Zitat von turboPASCAL:

Was spricht gegen OnKeyPress, bei einem Edit-Felt/Memo funzt das so: (habe kein SynEdit)

Dort habe ich kein "Shift" zur Verfügung, was ich aber benötige (siehe oben).

Ups, hab ich wohl überlesen, sorry. Dann mach es einfach so:

Delphi-Quellcode:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var mgsTemp: TMsg;
begin
 case key of
    VK_Return:
         begin
           memo1.Text := memo1.Text + '
';
           PeekMessage(mgsTemp, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
         end;
    VK_Space:
         begin
           memo1.Text := memo1.Text +'';
           PeekMessage(mgsTemp, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
         end;
     65: begin
           memo1.Text := memo1.Text +'ae';
           PeekMessage(mgsTemp, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
         end;
  end;
end;