[Delphi] OnKeyDown

[Verwijderd]

In mijn applicatie heb ik een TComboBox met een OnKeyDown event. Dit zou de enter key af moeten vangen maar voordat deze in de OnKeyDown komt word deze al ergens afgevangen en ik kan het niet vinden.

Nu vroeg ik me af zijn er tools waarmee ik mijn applicatie op kan starten via Delphi of los en die mij dan kunnen vertellen wat de "Enter" key afvangt....?

[Tomatoman]

Als je even in de source code had gekeken, had je gezien dat in TCustomCombo.WndProc een stukje speciale processing zit voor de entertoets. Daar kun je ook zien dat je door KeyPreview van het TForm waar de TComboBox op staat op true te zetten, je de code in de OnKeyPress of OnKeyDown van het form kunt afvangen.

[Verwijderd]

Ik kan niet in de source kijken ik heb Delphi Standard. Ik ga de componenten maar afzoeken het is gewoon vaag dat nergens de enter toets werkt die word door iets afgevangen maar wat.

[Tomatoman]

Verwijderd schreef op vrijdag 11 maart 2005 @ 17:49:
Ik kan niet in de source kijken ik heb Delphi Standard.

OK, dat verklaart een hoop . Hier een code snippet, die je inzicht geeft in wat er achter de schermen gebeurt:

Delphi:

procedure TCustomCombo.ComboWndProc(var Message: TMessage; ComboWnd: HWnd;
  ComboProc: Pointer);
var
  Point: TPoint;
  Form: TCustomForm;
begin
  try
    with Message do
    begin
      case Msg of
        ...
        WM_KEYDOWN, WM_SYSKEYDOWN:
          if (ComboWnd <> FListHandle) and DoKeyDown(TWMKey(Message)) then
            Exit;
        WM_CHAR:
          begin
            if DoKeyPress(TWMKey(Message)) then Exit;
            if ((TWMKey(Message).CharCode = VK_RETURN) or
              (TWMKey(Message).CharCode = VK_ESCAPE)) and DroppedDown then
            begin
              DroppedDown := False;
              Exit;
            end;
          end;
        WM_KEYUP, WM_SYSKEYUP:
          if DoKeyUp(TWMKey(Message)) then Exit;

        ...

        CN_KEYDOWN, CN_CHAR, CN_SYSKEYDOWN, CN_SYSCHAR:
          begin
            WndProc(Message);
            Exit;
          end;
      end;
      Result := CallWindowProc(ComboProc, ComboWnd, Msg, WParam, LParam);
      if (Msg = WM_LBUTTONDBLCLK) and (csDoubleClicks in ControlStyle) then
        DblClick;
    end;
  except
    Application.HandleException(Self);
  end;
end;

procedure TCustomCombo.WndProc(var Message: TMessage);
begin
    {for auto drag mode, let listbox handle itself, instead of TControl}
  if not (csDesigning in ComponentState) and
     ((Message.Msg = WM_LBUTTONDOWN) or (Message.Msg = WM_LBUTTONDBLCLK)) and
     not Dragging then
  begin
    if DragMode = dmAutomatic then
    begin
      if IsControlMouseMsg(TWMMouse(Message)) then
        Exit;
      ControlState := ControlState + [csLButtonDown];
      Dispatch(Message);  {overrides TControl's BeginDrag}
      Exit;
    end;
  end;
  with Message do
    case Msg of
      ...
      WM_CHAR:
        begin
          if DoKeyPress(TWMKey(Message)) then Exit;
          if ((TWMKey(Message).CharCode = VK_RETURN) or
            (TWMKey(Message).CharCode = VK_ESCAPE)) and DroppedDown then
          begin
            DroppedDown := False;
            Exit;
          end;
        end;
    end;
  inherited WndProc(Message);
end;

[Verwijderd]

Thanks voor de code. Ja dat is een beetje jammer dat je bij Delphi Standard niet bij de source code kan komen. Maar gelukkig voor dit soort dingen is er internet.