Assign OnKeyDown event on TAdvDBFormPanel (Delphi)

Call us now! +44 (0) 2037347158

Post published:19/10/2017
Post category:Free source (Delphi, PHP, Perl)

This is an easy way to assign onkeydown event in all edit controls created by TAdvDBFormPanel:

var
  i:integer;
  editp:TDBAdvEdit;
begin

  for i:=0 to AdvDBFormPanel1.layout.Items.Count - 1 do
    if AdvDBFormPanel1.layout.Items.Items[i].DataControl = dcedit then begin
      editp:=(AdvDBFormPanel1.layout.Items.Items[i].EditCtrl as TDBAdvEdit);
      editp.OnKeyDown:=Edit1KeyDown;
    end;

var

i:integer;

editp:TDBAdvEdit;

begin

for i:=0 to AdvDBFormPanel1.layout.Items.Count - 1 do

if AdvDBFormPanel1.layout.Items.Items[i].DataControl = dcedit then begin

editp:=(AdvDBFormPanel1.layout.Items.Items[i].EditCtrl as TDBAdvEdit);

editp.OnKeyDown:=Edit1KeyDown;

end;