Topic: Get Bug Version In 4.4 (Script Ctrl_OnKeyDown)

Change Key Tab To Enter For next Control
From Code in MVD 4.4

procedure Form1_Ctrl_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    if Key=13 then Form1.SetFocusNextControl;
end;

No Effect !
Bug????

Post's attachments

Attachment icon Tab_Enter.zip 2.46 kb, 319 downloads since 2018-05-24 

My Visual Database : I Love You
Easy For Beginner Student For Me

Re: Get Bug Version In 4.4 (Script Ctrl_OnKeyDown)

on the FORM PROPERTIES pls CHECK 'KeyPreview' to true

Re: Get Bug Version In 4.4 (Script Ctrl_OnKeyDown)

Hello,

Use Object inspector Form1_OnKeyDown

Change script to...

procedure Form1_OnKeyDown (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
             if Key=13 then Form1.SetFocusNextControl;
end;

{procedure Form1_Ctrl_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    if Key=13 then Form1.SetFocusNextControl;
end; }

begin

end.

Re: Get Bug Version In 4.4 (Script Ctrl_OnKeyDown)

Thank You manixs2013 & carlo_dj

Effect By
- Form Set  KeyPreview := True  >> manixs2013
- Change Script Follow >> carlo_dj

procedure Form1_OnKeyDown (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
 if Key=13 then Form1.SetFocusNextControl;
end;
begin
Form1.KeyPreview := True ;
end.
My Visual Database : I Love You
Easy For Beginner Student For Me