home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / RASMG110.ZIP / RasExampleMemoDialog.pas < prev    next >
Pascal/Delphi Source File  |  2002-08-04  |  672b  |  38 lines
  1. unit RasExampleMemoDialog;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  8.  
  9. type
  10.   TMemoForm = class(TForm)
  11.     Memo: TMemo;
  12.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  13.   private
  14.     { Private-Deklarationen }
  15.   public
  16.     { Public-Deklarationen }
  17.     procedure Write( Info: string );
  18.   end;
  19.  
  20. var
  21.   MemoForm: TMemoForm;
  22.  
  23. implementation
  24.  
  25. {$R *.dfm}
  26.  
  27. procedure TMemoForm.Write( Info: string );
  28. begin
  29.   Memo.Lines.Add( Info );
  30. end;
  31.  
  32. procedure TMemoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  33. begin
  34.   CanClose := false
  35. end;
  36.  
  37. end.
  38.