🚀 go-pugleaf

Feza wrote:

> i defined below procedure in seperate unit in order to it from all
> forms' DBEdit's evets.However, it gives me error on line
> "SelectNext".I could not either be able to solve or understand that
> since i included almost all units in uses clause.Hope that's clear to
> you..

As I understand, you just want routine to tab forward/backward
through TabOrder, correct?

If so, this works:

>  TKeyHndlr = Class
>    procedure TabNext (Sender: TObject; var Key: Char);
>  end; 
  
> implementation

> Type
>   THack = class (TWinControl);
> 
> procedure TKeyHndlr.TabNext (Sender: TObject; var Key: Char);
> var aCurr, aNext: TWinControl;
> 
> begin
>   if (Key = #13) and (Sender is TWinControl) then begin
>       aCurr := TWinControl(Sender);
>       aNext := THack(aCurr.Parent).FindNextControl (
>           aCurr,
>           HiWord(GetKeyState(VK_SHIFT)) <> 0,
>           True,
>           True);
>       if aNext <> nil then
>         aNext.SetFocus;
>     end;
> end;

if you Create TKeyHndlr  instance and assign your KeyPress 
event in constructor as you did elswhere, it works for me.

-- 
Regards:
Jim McKay

" I was provided with additional input that was radically different
  from the truth. I assisted in furthering that version. "

Oliver North
Iran Contra Hearings 

Posted with: XanaNews 1.15.8.5