home *** CD-ROM | disk | FTP | other *** search
- unit RasExampleMemoDialog;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
-
- type
- TMemoForm = class(TForm)
- Memo: TMemo;
- procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- private
- { Private-Deklarationen }
- public
- { Public-Deklarationen }
- procedure Write( Info: string );
- end;
-
- var
- MemoForm: TMemoForm;
-
- implementation
-
- {$R *.dfm}
-
- procedure TMemoForm.Write( Info: string );
- begin
- Memo.Lines.Add( Info );
- end;
-
- procedure TMemoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- begin
- CanClose := false
- end;
-
- end.
-