readme.pas 458 B

12345678910111213141516171819202122232425262728293031
  1. unit readme;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5. StdCtrls;
  6. type
  7. TForm2 = class(TForm)
  8. Memo1: TMemo;
  9. procedure Memo1DblClick(Sender: TObject);
  10. private
  11. { Private declarations }
  12. public
  13. { Public declarations }
  14. end;
  15. var
  16. Form2: TForm2;
  17. implementation
  18. {$R *.DFM}
  19. procedure TForm2.Memo1DblClick(Sender: TObject);
  20. begin
  21. Form2.close;
  22. end;
  23. end.