home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1996 August
/
VPR9608A.BIN
/
del20try
/
install
/
data.z
/
AUTOFORM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-05-08
|
3KB
|
116 lines
{ Important Note:
Before running this AutoDemo application,
make sure that the MemoEdit application has
been registered using a "MemoEdit /regserver"
command line. }
unit AutoForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TMainForm = class(TForm)
CreateButton: TButton;
AddTextButton: TButton;
TileButton: TButton;
CascadeButton: TButton;
CloseButton: TButton;
ExitButton: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure CreateButtonClick(Sender: TObject);
procedure AddTextButtonClick(Sender: TObject);
procedure TileButtonClick(Sender: TObject);
procedure CascadeButtonClick(Sender: TObject);
procedure CloseButtonClick(Sender: TObject);
procedure ExitButtonClick(Sender: TObject);
private
MemoEdit: Variant;
Memos: array[1..3] of Variant;
procedure CloseMemos;
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
uses OleAuto;
procedure TMainForm.FormCreate(Sender: TObject);
begin
try
MemoEdit := CreateOleObject('MemoEdit.Application');
except
MessageDlg(
'An instance of the "MemoEdit.Application" OLE Automation class ' +
'could not be created. Make sure that the MemoEdit application has ' +
'been registered using a "MemoEdit /regserver" command line.',
mtError, [mbOk], 0);
Halt;
end;
end;
procedure TMainForm.FormDestroy(Sender: TObject);
begin
CloseMemos;
end;
procedure TMainForm.CloseMemos;
var
I: Integer;
begin
for I := 1 to 3 do
if not VarIsEmpty(Memos[I]) then
begin
Memos[I].Close;
Memos[I] := Unassigned;
end;
end;
procedure TMainForm.CreateButtonClick(Sender: TObject);
var
I: Integer;
begin
CloseMemos;
for I := 1 to 3 do Memos[I] := MemoEdit.NewMemo;
end;
procedure TMainForm.AddTextButtonClick(Sender: TObject);
var
I: Integer;
begin
for I := 1 to 3 do
if not VarIsEmpty(Memos[I]) then
Memos[I].Insert('This text was added through OLE Automation'#13#10);
end;
procedure TMainForm.TileButtonClick(Sender: TObject);
begin
MemoEdit.TileWindows;
end;
procedure TMainForm.CascadeButtonClick(Sender: TObject);
begin
MemoEdit.CascadeWindows;
end;
procedure TMainForm.CloseButtonClick(Sender: TObject);
begin
CloseMemos;
end;
procedure TMainForm.ExitButtonClick(Sender: TObject);
begin
Close;
end;
end.