ENTER-key to TAB aber nicht im GRID

[D6to2007]

Hallo und einen guten Tag

Ich habe folgende ENTER to TAB Routine und möchte aber das im Falle das der ENTER-key im einem GRID gedrückt wird die ENTER–TAB Umsetzung nicht ausführen.
Also wie kann ich prüfen das sich die Edit Komponente nicht im Grid befindet?

KeyPreview im Grid abschalten kommt nicht in frage weil andere Tasten bearbeitet werden müssen.

Delphi-Quellcode:

// TMainForm.KeyPreview := True !
procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);

begin

If not in grid then // Der fehlende Test aufs Grid 

 if Key = #13 then  
  begin
    Key := #0;
    { check if SHIFT - Key is pressed }
    if GetKeyState(VK_Shift) and $8000 <> 0 then
      PostMessage(Handle, WM_NEXTDLGCTL, 1, 0)
    else
      PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
  end;

end;

Besten Dank

[DeddyH]

Untersuche mal den Sender-Parameter.

[D6to2007]

Besten Dank für prompte Antwort

Hab ich versucht mit

Delphi-Quellcode:

if not (Sender is TOvcTable) then

TOvcTable ist ein Turbo Power Orpheus Grid.

Aber auch ein Test auf Tedit klappt hier nicht.
Das war auch mein erster Ansatz.
Anscheinend ist der „Sender“ immer Tform – den der Test darauf geht klar.

[DeddyH]

ActiveControl wäre auch noch eine Möglichkeit.

[D6to2007]

SUPER und vielen Dank DeddyH!

Mit:

Delphi-Quellcode:

If not (ActiveControl is TOvcTable ) then

hat es geklappt. :spin2: