unit PreviewWord;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, OleCtnrs,ComObj, Buttons, Mask, DBCtrls,
ExtCtrls;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
OpenDialog1: TOpenDialog;
OleContainer2: TOleContainer;
DBEdit1: TDBEdit;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
Button1: TButton;
Panel1: TPanel;
ScrollBox1: TScrollBox;
OleContainer1: TOleContainer;
ScrollBox2: TScrollBox;
Splitter1: TSplitter;
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure DBEdit1Change(Sender: TObject);
private
procedure s_ole_clickck(Sender:TObject;Button:TMouseButton; Shift: TShiftState; X, Y: Integer);
function create_S_Ole(nn:integer):ToleContainer;
procedure delete_s_ole;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
1