События в frxDesigner

aasaas
отредактировано 01:37 Раздел: FastReport 3.0
Здравствуйте. Помогите решить проблемку. Значит в программе использую
frxDesigner и frxReport для открытия отчетов в дизайнере. В момент закрытия дизайнера нужно выполнять некоторые действия. Как можно отловить этот момент ?

Комментарии

  • aasaas
    отредактировано 01:37
    aas написал:
    Здравствуйте. Помогите решить проблемку. Значит в программе использую
    frxDesigner и frxReport для открытия отчетов в дизайнере. В момент закрытия дизайнера нужно выполнять некоторые действия. Как можно отловить этот момент ?
    Ау разработчики. Подскажите что нибудь.
  • отредактировано 01:37
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, frxDesgn, frxClass;
    
    type
      TForm1 = class(TForm)
        frxReport1: TfrxReport;
        frxDesigner1: TfrxDesigner;
        procedure FormCreate(Sender: TObject);
        procedure frxDesigner1Show(Sender: TObject);
        procedure CloseDesigner(Sender: TObject; var Action: TCloseAction);
      end;
    
    var
      Form1: TForm1;
      DefaultCloseEvent:TCloseEvent;
    
    implementation
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
     frxReport1.DesignReport;
    end;
    
    procedure TForm1.CloseDesigner(Sender: TObject; var Action: TCloseAction);
    begin
    ShowMessage('Designer Closed');
    DefaultCloseEvent(Sender,Action);
    end;
    
    procedure TForm1.frxDesigner1Show(Sender: TObject);
    begin
    DefaultCloseEvent := frxReport1.Designer.OnClose;
    frxReport1.Designer.OnClose := CloseDesigner;
    end;
    
    end.
    
  • aasaas
    отредактировано 01:37
    написал:
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, frxDesgn, frxClass;
    
    type
      TForm1 = class(TForm)
        frxReport1: TfrxReport;
        frxDesigner1: TfrxDesigner;
        procedure FormCreate(Sender: TObject);
        procedure frxDesigner1Show(Sender: TObject);
        procedure CloseDesigner(Sender: TObject; var Action: TCloseAction);
      end;
    
    var
      Form1: TForm1;
      DefaultCloseEvent:TCloseEvent;
    
    implementation
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
     frxReport1.DesignReport;
    end;
    
    procedure TForm1.CloseDesigner(Sender: TObject; var Action: TCloseAction);
    begin
    ShowMessage('Designer Closed');
    DefaultCloseEvent(Sender,Action);
    end;
    
    procedure TForm1.frxDesigner1Show(Sender: TObject);
    begin
    DefaultCloseEvent := frxReport1.Designer.OnClose;
    frxReport1.Designer.OnClose := CloseDesigner;
    end;
    
    end.
    
    Большое Вам спасибо. Очень помогли.
  • alecsandr Izhevskalecsandr Izhevsk Удмуртия, г. Ижевск
    отредактировано 01:37
    Огромное спасибо!!!

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.