各位大大: Keyreview屬性攔截不到子元件的TAB鍵, 若我想控制整個FORM的TAB事件,讓他依照我的判斷來決定ACTIVECONTROL為何, 該如何處理? 而且我發現TDBGRID在KEYDOWN事件又好像可以攔到TAB鍵, 其他元件如TEDIT等卻不行?? 另外好像只要設定了tabstop = true後, 不管我在KEYDOWN事件把ACTIVECONTROL給誰...還是會被tab order搶走...跳到下一個tab order的元件..>< 之前有大大提到可以利用TAPPLICATIONEVENTS處理,可以在說明一下嘛?? procedure TCounterFrm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key = VK_TAB) then begin key := 0; ControlTab; end; end; procedure TCounterFrm.ControlTab; begin if (CounterDM.OrderDetailTable.IsEmpty) then begin if (ActiveControl = CustTel) then begin OrderDetailDBGrid.SelectedIndex := 0; end else begin ActiveControl := CustTel; end; end else begin if (ActiveControl = DBGetDate) then begin ActiveControl := OrderDeposit; end else if (ActiveControl = OrderDeposit) then begin OrderDetailDBGrid.SelectedIndex := 0; ActiveControl := OrderDetailDBGrid; end else begin ActiveControl := DBGetDate; end; end; end; 感謝...!! Delphi....我真的是摸不透你阿!!

sprewell您好 直接處理ApplicationEvents.OnMessages 參考看看

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  case Msg.message of
    wm_keydown:
    begin
      Memo1.Lines.Add(IntToStr(msg.wParam));
      if msg.wParam=vk_tab then
        showMessage('tab key press');
    end;
  end;
end;