TWinControl.ControlByName(ControlName: String): TControl;
lazarus / 7-LCL

----------------------------------------------------------------------
everton · 2011-06-03 18:05

This function is found in the IDE 0.9.28 but isn't found in the IDE
0.9.3.

Anybody knows why? Is a very simple implementation and in some cases
very useful.

Is just make:

TWinControl.ControlByName(ControlName: String): TControl;
begin
  Result := nil;
  for i1 := 0 to ControlCount -1 do
    if Constrols[i1].Name = ControlName then
    begin
      Result := Constrols[i1];
      Break;
    end;
end;