在RichEdit中攔截TAB鍵

Question

這裏有很多類似的問題，但我找不到我的問題的答案。

我有一個TRichEdit並希望實施一些自定義行爲，當用戶按選項卡。我將富編輯的WantTabs屬性設置爲True，並嘗試將OnKeyDown中的自定義行爲添加到工作狀態，但不幸的是在此之後「標準」選項卡行爲也被執行（在編輯中插入製表符）。我嘗試在事件處理程序中將Key設置爲0，但這沒有幫助。

如何防止執行「正常」選項卡行爲？

Answer 1

使用OnKeyPress事件，而不是：

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char); 
begin 
    if Key = chr(VK_TAB) then 
    begin 
    beep; 
    Key := #0; 
    end; 
end; 

或者，如果你真的需要使用OnKeyDown事件時，只要將關鍵信息：

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word; 
    Shift: TShiftState); 
var 
    msg: TMsg; 
begin 
    if Key = VK_TAB then 
    begin 
    beep; 
    while PeekMessage(msg, RichEdit1.Handle, WM_KEYFIRST, WM_KEYLAST, 
     PM_REMOVE) do; 
    end; 
end;