Ανάθεση του event OnKeyDown στο TAdvDBFormPanel (Delphi)

Κάλεσε τώρα! +30 2118002930

Αδειοδοτημένος πάροχος Ηλεκτρονικής Τιμολόγησης από την Α.Α.Δ.Ε.

Post published:17/11/2022
Post category:Δωρεάν κώδικας (Delphi, PHP, Perl)

Αυτός είναι ένας εύκολος τρόπος για να γίνει η ανάθεση του OnKeyDown event σε όλα τα edit controls που δημιουργούνται από το 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;