🚀 go-pugleaf

> unit Geneller;
>
> interface
>
> uses
>    Windows, Classes, Controls;
>
> type
>    TFormManager = class
>    public
>      procedure DBEditKeyPress(Sender: TObject; var Key: Char);
>    end;
>
>
> implementation
>
> type
>    TWinControlHacker = class(TWinControl); // needed because SelectNext
> is protected
>
> procedure TFormManager.DBEditKeyPress(Sender: TObject; var Key: Char);
> var
>    ParCtrl: TWinControl;
> begin
>    if (Sender is TWinControl) and (Key = #13) then
>    begin
>      ParCtrl := TWinControl(Sender).Parent;
>      if HiWord(GetKeyState(VK_SHIFT)) <> 0 then
>
> TWinControlHacker(ParCtrl).selectNext(TWinControl(Sender),False,TRUE)
>      else
>
TWinControlHacker(ParCtrl).SelectNext(TWinControl(Sender),True,True);
>      Key := #0
>    end;
> end;
>
> end.
>
> You need to create an instance of TFormManager in your formCreate
> procedure and assign its DBEditKeyPress to the OnKeyPressEvent of
> all you edit fields.
>

I have all those you mention above.Althought compiler doesn't complain about
coding, if you try to try to jump over control by pressing Enter key, it
just do nothing.No respone at all.
in every event handler of Dbedit controls, i made assignment;


unit Geneller;
interface

uses windows, controls,dbgrids;

type
   TFormManager = class
   public
     procedure DBEditKeyPress(Sender: TObject; var Key: Char);
   end;

var
Formmanager : TFormManager;

implementation

type
   TWinControlHacker = class(TWinControl)

procedure TFormManager.DBEditKeyPress(Sender: TObject; var Key: Char);
var
   ParCtrl: TWinControl;
begin
   if (Sender is TWinControl) and (Key = #13) then
   begin
     ParCtrl := TWinControl(Sender).Parent;
     if HiWord(GetKeyState(VK_SHIFT)) <> 0 then

TWinControlHacker(ParCtrl).selectNext(TWinControl(Sender),False,TRUE)
     else
       TWinControlHacker(ParCtrl).SelectNext(TWinControl(Sender),True,True);
     Key := #0
   end;
end;

end.

in my main, i made such assignment,

procedure TForm1.FormCreate(Sender: TObject);
begin
Dbedit1.onkeypress := Formmanager.DBEditKeyPress;
Dbedit2.onkeypress := Formmanager.DBEditKeyPress;
Dbedit3.onkeypress := Formmanager.DBEditKeyPress;
end;

i could't find any mistake

Regards
FEZA