Bringtofront

Комментарии

• Palych

  January 2009 отредактировано 04:25

  Я бы тоже очень хотел получить на этот вопрос! Разработчики, ау!
• caduser

  May 2011 отредактировано 04:25

  Помогите, так же актуален вопрос!
  

  Palych написал: »

  Я бы тоже очень хотел получить на этот вопрос! Разработчики, ау!
• gpi

  May 2011 отредактировано 04:25

  Смотрите исходники:

  procedure TfrxDesignerForm.BringToFrontCmdExecute(Sender: TObject);
  var
    i: Integer;
    c: TfrxComponent;
  begin
    for i := 0 to FSelectedObjects.Count - 1 do
    begin
      c := FSelectedObjects[i];
      if c.Parent <> nil then
        if (c is TfrxReportComponent) and not (rfDontMove in c.Restrictions) then
        begin
          c.Parent.Objects.Remove(c);
          c.Parent.Objects.Add(c);
        end;
    end;
  
    ReloadObjects;
    Modified := True;
  end;