Subversion Repositories spacemission

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. unit ComText;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,                    
  7.   StdCtrls;
  8.  
  9. type
  10.   TTextForm = class(TForm)
  11.     OKBtn: TButton;
  12.     Memo1: TMemo;
  13.     procedure Button1Click(Sender: TObject);
  14.   end;
  15.  
  16. var
  17.   TextForm: TTextForm;
  18.  
  19. implementation
  20.  
  21. {$R *.DFM}
  22.  
  23. procedure TTextForm.Button1Click(Sender: TObject);
  24. begin
  25.   close;
  26. end;
  27.  
  28. end.
  29.  
  30.