События в frxDesigner

Комментарии

• aas

  August 2006 отредактировано 19:30

  aas написал:

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

  Ау разработчики. Подскажите что нибудь.
• -=Den=-

  August 2006 отредактировано 19:30

  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.
  
• aas

  August 2006 отредактировано 19:30

  написал:

  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 Izhevsk Удмуртия, г. Ижевск

  September 2006 отредактировано 19:30

  Огромное спасибо!!!