Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Sempronio, The Reader - Unit3.pas

Unit3.pas

Caricato da: Anonymous
Scarica il programma completo

  1. unit Unit3;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, jpeg, ExtCtrls, Buttons;
  8.  
  9. type
  10.   Tfrmabout = class(TForm)
  11.     Image1: TImage;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     Label3: TLabel;
  15.     Label4: TLabel;
  16.     Label5: TLabel;
  17.     Label6: TLabel;
  18.     Label9: TLabel;
  19.     Label11: TLabel;
  20.     Label14: TLabel;
  21.     Label15: TLabel;
  22.     Button1: TButton;
  23.     Bevel1: TBevel;
  24.     Label7: TLabel;
  25.     procedure Button1Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. var
  33.   frmabout: Tfrmabout;
  34.  
  35. implementation
  36.  
  37. uses Unit1;
  38.  
  39. {$R *.DFM}
  40.  
  41. procedure Tfrmabout.Button1Click(Sender: TObject);
  42. begin
  43.  close;
  44. end;
  45.  
  46. end.