【搞定】输出wrod文档和树的问题

buckking · 发表于 2007-7-14 15:38:18

怎么样了阿，稍等都等好久了

zfang · 发表于 2007-7-16 08:29:51

请楼主看30楼

buckking · 发表于 2007-7-16 12:08:24

这样了话，连那个的控件目录都看不到了

buckking · 发表于 2007-7-16 12:11:01

还有一个

buckking · 发表于 2007-7-16 12:12:17

重置之后

buckking · 发表于 2007-7-16 15:12:30

原来还能看见那个控件的文件夹，只是不能用，现在连看都看不到了

alang · 发表于 2007-7-16 15:55:04

请楼主看看源代码就知道了，这里根本就没有注册控件(Register函数)，这个文件只是给了一些函数供你调用的，只能在代码中调用，没有控件的。

unit OleAdvFunc;

interface

uses
  OleCtnrs, Dialogs;

  type
TOleWordExpand = class
private
   FOle: TOleContainer;
   FTrack: Boolean;
   FUserName: String;
   procedure SetOle(const Value: TOleContainer);
   procedure SetTrack(const Value: Boolean);
public
   procedure AddPicture(AFilename: String);
   procedure Activate;

   property TrackRevisions: Boolean read FTrack write SetTrack;
   property Ole: TOleContainer read FOle write SetOle;
   property UserName: String read FUserName write FUserName;
end;

procedure OleActivate(AOle: TOleContainer);
procedure OleDoVerb(AOle: TOleContainer; AVerb: Integer);
procedure OleAddPicture(AOle: TOleContainer; AFilename: String);
procedure OleTrackRevisions(AOle: TOleContainer; ATrack: Boolean);
procedure OleUserName(AOle: TOleContainer; AUserName: String);
procedure OleToolBarShow(AOle: TOleContainer; AShow: Boolean);
procedure OleStandAlone(AOle: TOleContainer);
procedure OleFillField(AOle: TOleContainer; AFieldName, AFieldValue: String);

implementation

buckking · 发表于 2007-7-16 16:29:04

好的，那结帖吧

		自动登录	找回密码
密码			立即注册