各位大大請教一下... 當我在畫面上的memo元件上觸發keydown ctrl+enter開啟另一個視窗 但是memo會先跳行才讓我加入文字，    if (key=VK_RETURN) and (shift=[ssCTRL]) then begin   key:=0;//為了不讓memo跳行，但是仍然跳行   memo1.lines.add('sss');   ...   //key:=0 或者放在這裡，均會跳行 

設個變數初值為 False, 在 OnKeyDown 來判斷是按下 Ctrl + Enter,  是的話, 變數為 True 若變數為 True, 然後在 OnKeyPress 中吃掉 Key 吃掉 Key 後, 再將變數設為 False

var
  Form1: TForm1;
  Flag: Boolean = False;    implementation    {$R *.DFM}    procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_RETURN) and (Shift = [ssCtrl]) then
    Flag := True;
end;    procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Flag then begin
    Key := #0;
    Flag := False;
  end;
end;

--- --<-<-<@

版主謝謝您！問題解決