суббота, 27 апреля 2013 г.

Ещё правки VCL (10)


procedure TCustomFrame.AddActionList(ActionList: TCustomActionList);
var
  Form: TCustomForm;
begin
  Form := GetParentForm(Self);
  if Form <> nil then
  begin
    if Form.FActionLists = nil then Form.FActionLists := TList.Create;
    if Form.FActionLists.IndexOf(ActionList) = -1 then {V}
     Form.FActionLists.Add(ActionList);
  end;
end;

3 комментария:

  1. А такого метода в 2007 Delphi уже нет...

    ОтветитьУдалить
  2. Я не знаю, но мне кажется, что в более старших версиях есть "аналог". Ну или они поправили ошибку наконец.

    ОтветитьУдалить