在父表單和子控件之間分配按鍵

根據應用程序的狀態，表單上的按鍵有時可能有不同的配方。見下面的示例：在父表單和子控件之間分配按鍵

unit Unit1; 

interface 

uses 
    Windows, 
    Messages, 
    SysUtils, 
    Variants, 
    Classes, 
    Graphics, 
    Controls, 
    Forms, 
    Dialogs, 
    ComCtrls, 
    Buttons; 

type 
    TForm1 = class(TForm) 
    private 
    ListView1: TListView; 
    ButtonOK: TBitBtn; 
    ButtonCancel: TBitBtn; 
    procedure ButtonClick(Sender: TObject); 
    public 
    constructor Create(AOwner: TComponent); override; 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

constructor TForm1.Create(AOwner: TComponent); 
begin 
    inherited CreateNew(AOwner); 
    ClientWidth := 300; 
    ClientHeight := 240; 

    ListView1 := TListView.Create(Self); 
    ListView1.Name := 'ListView1'; 
    ListView1.Parent := Self; 
    ListView1.Height := 200; 
    ListView1.Align := alTop; 
    ListView1.AddItem('aaaaa', nil); 
    ListView1.AddItem('bbbbb', nil); 
    ListView1.AddItem('ccccc', nil); 

    ButtonOK := TBitBtn.Create(Self); 
    ButtonOK.Parent := Self; 
    ButtonOK.Left := 8; 
    ButtonOK.Top := 208; 
    ButtonOK.Kind := bkOK; 
    ButtonOK.OnClick := ButtonClick; 

    ButtonCancel := TBitBtn.Create(Self); 
    ButtonCancel.Parent := Self; 
    ButtonCancel.Left := 90; 
    ButtonCancel.Top := 208; 
    ButtonCancel.Kind := bkCancel; 
    ButtonCancel.OnClick := ButtonClick; 
end; 

procedure TForm1.ButtonClick(Sender: TObject); 
begin 
    ShowMessage((Sender as TBitBtn).Caption); 
    Application.Terminate; 
end; 

end.

（要運行此，創建一個標準的VCL應用程序，並與上述替換Unit1.pas的內容）

如果一個啓動應用並按下回車或Esc，適當的按鈕被「點擊」。但是，當開始編輯列表視圖（通過點擊一個項目的一個半時間）輸入和Esc應該接受或取消他們不需要的編輯 - 他們仍然「單擊」按鈕。

類似的情況存在，如果有快捷鍵的操作F2或含有cxGrid，默認情況下使用這些快捷鍵來啓動編輯模式或下拉組合框中編輯表單上F4。

您是否知道如何繼續使用TButton.Default/Cancel和actions的舒適度，而而不是不得不重新實現我使用的所有組件的密鑰處理？

來源

2010-03-09 Uli Gerhardt

我想你使用的控件運氣不好。 TMemo正確處理它，但確實可編輯的TListView不。 problem seems to originate from win32而不是VCL包裝它。因此，如果你不喜歡它的當前行爲，那麼你必須重新實現TListView上的密鑰處理。

procedure WMGetDlgCode(var Message: TMessage); message WM_GETDLGCODE; 

procedure TMyListView.WMGetDlgCode(var Message: TMessage); 
begin 
    inherited; 

    if IsEditing then 
    Message.Result := Message.Result or DLGC_WANTALLKEYS; 
end;

由於所有控件的行爲不同，它是決定他們是哪個鍵感興趣的控制自己，我看不出你如何能解決它，而無需改變不受歡迎的行爲。

來源

2010-03-09 18:49:12

它應該也可以做同樣的事情，而不用做一個派生類，就像這裏：http://stackoverflow.com/questions/2363456/how-do-i-catch-a-vk-tab-key-in -my-tedit-control-and-not-let-it-lose-the-focus – kludg 2010-03-09 19:31:30

而不是創建自己的TmyEdit或類似的東西，只需使用類似於類型TEdit = class（StdCtrls.TEdit）{... } end;'添加任何你想要的東西，包括按鍵的新消息處理。你的表單上的任何地方，你有一個標準的TEdit現在將使用你的新擴展版本。或者，將您的新類型聲明添加到單元以從多個表單使用它。在包含原始控件的所有單元（添加它到最後是最簡單的解決方案）之後，您將必須確保將您的單元添加到uses子句中。 – 2011-09-14 17:15:30

在父表單和子控件之間分配按鍵

回答

相關問題