Các ngắt dòng trong TMemo trên biểu mẫu có nút Mặc định

Question

Tôi có biểu mẫu trong một ứng dụng được viết bằng FireMonkey. Trên đó (phương thức) hình thức có một nút OK mà tôi đã thiết lập tài sản mặc định là True. Ngoài ra còn có một thành phần ghi nhớ. Bây giờ nếu gõ gõ enter trong khi gõ vào bản ghi nhớ, sau đó biểu mẫu được đóng thay vì chèn ngắt dòng vào bản ghi nhớ.

Những gì tôi muốn thực hiện, là khi nhập (hoặc shift + enter hoặc smth like that) được nhấn trong thành phần ghi nhớ, sau đó ngắt dòng được nhập. Trong các thành phần khác, nơi bạn không thể nhập ngắt dòng, tôi vẫn muốn nhấn enter để đóng biểu mẫu. Điều tốt nhất tôi đã tìm thấy cho đến nay là thêm đoạn mã sau vào hành động hình thức OnCloseQuery:

if (Focused.GetObject.ClassName = 'TMemo') and (ModalResult = mrOk) then 
begin 
    CanClose := False; 
    Memo := TMemo(Focused.GetObject); 
    Memo.InsertAfter(Memo.CaretPosition, sLineBreak, [TInsertOption.ioMoveCaret, 
    TInsertOption.ioCanUndo]); 
end 
else 
    CanClose := True; 

này hoạt động, nhưng có ấy bây giờ có một sự chậm trễ gây phiền nhiễu nhỏ sau khi chạm vào và trước khi ngắt dòng xuất hiện. Ngoài ra tôi muốn giải pháp, đó sẽ là ít hacky.

Tôi cũng nên chỉ ra rằng tôi cũng có các biểu mẫu chứa nút OK chứ không phải thành phần ghi nhớ, tuy nhiên thư báo sẽ được chuyển sang biểu mẫu đó khi chạy bằng cách thay đổi thuộc tính gốc của nó.

Answer 1

Đặt btnOk.Default-False trong của OnEnter, và trở lại True vào những bản ghi nhớ OnExit