www.pudn.com > Source.rar > Unit11.pas, change:2007-02-04,size:812b


unit Unit11; 
 
interface 
 
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,  
  Buttons, ExtCtrls ; 
 
type 
  TApropos = class(TForm) 
    AboutPanel: TPanel; 
    ProductName: TLabel; 
    Version: TLabel; 
    OKButton: TButton; 
    Label6: TLabel; 
    Label7: TLabel; 
    Label8: TLabel; 
    Image2: TImage; 
    procedure FormActivate(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Apropos: TApropos; 
 
implementation 
 
{$R *.DFM} 
 
procedure TApropos.FormActivate(Sender: TObject); 
begin 
//Text.Active:=True; 
end; 
 
procedure TApropos.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
//Text.Active:=False; 
end; 
 
end.