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