求ActiveX源码！！分不够可以再加 (200分)

经常看到别人开发出软件后会留有一个ActiveX（*.ocx）控件，以便其它程序员能够使用
它提供的API，以便进行扩展开发！
那位大侠手中有这样的ActiveX的源码？简单点的就行
非常感谢！！

用dehphi file->new一个

忘留email了-----tao518@163.com

to:xusong168
呵呵，那样做出来的东西是能用（以前天真大侠给了我一个例子），没有理解我的意思

同意xusong168
new一个是最简单得。[]

gz

都成了灌水了。
泼特，你可以这样来自己给自己搞一个演示版本，如楼上所说，叫做 New 一个。 :-(
1.取一个自己或别人做的继承自 Twincontrol 的 vcl
2.点 New 选 ActiveX 下 ActiveX Lib
3.再点 New 选 ActiveX 下的 ActiveX Control 启动向导
4.Build
5.Run--------> Register ActiveX Server
OK 了。你看这个“ New 一个”多么形象。

是不是得自己做成控件啊？然后在做成activeX？
这样是不是有些麻烦啊？不能直接做成activex吗？

糊涂啊，让大家见笑了，没办法底子差啊

分分了。可以直接做，还不是一样？有问题，具体再商量。
尤其是类型库，亏了有 Delphi 帮着完成，不然有得苦吃了。
专门有一个类型库工具，是为 VC 准备的，Delphi 也能用的，
但受不了它的用法。这个类型库同普通资源文件一样被编译进入 OCX 。

TO:小雨哥
如果你有空的话，给我做一个吧！我再给你300分，这200分给你100，怎么样啊？
tao518@163.com
QQ:10503283

要我看 xusong168 ---- 80 分 第一个关注并正确的人
BlackDragon -- 60 分 关注并正确，如果他手脚快，也回答掉了。
小雨哥 ---- 只好拿余下的了，手脚慢不说，话还特别罗嗦。
同意就分了吧。
http://www-900.ibm.com/developerWorks/cn/components/cm-corbajct3/index.shtml
http://www.microsoft.com/msj/defaultframe.asp?page=/msj/0898/idl/idl.htm&nav=/msj/0898/newnav.htm

我同意：）

我不同意
我还没有达到目地啊！！！！！！！！！！！！！

我有一个用INDY发送邮件的ocx源码,我主要是把它用在网页中发邮件。
界面用了FlatStyle组件，你要否？

unit LabelEditImpl1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
Windows, ActiveX, Classes, Controls, Graphics, Menus, Forms, StdCtrls,
ComServ, StdVCL, AXCtrls, LabelEditXControl1_TLB, LabelEdit;

type
TLabelEditX = class(TActiveXControl, ILabelEditX)
private
{ Private declarations }
FDelphiControl: TLabelEdit;
FEvents: ILabelEditXEvents;
protected
{ Protected declarations }
procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage)
override;
procedure EventSinkChanged(const EventSink: IUnknown)
override;
procedure InitializeControl
override;
function DrawTextBiDiModeFlagsReadingOnly: Integer
safecall;
function Get_AlignDisabled: WordBool
safecall;
function Get_Cursor: Smallint
safecall;
function Get_DoubleBuffered: WordBool
safecall;
function Get_EditText: WideString
safecall;
function Get_Enabled: WordBool
safecall;
function Get_Font: IFontDisp
safecall;
function Get_HelpKeyword: WideString
safecall;
function Get_HelpType: TxHelpType
safecall;
function Get_LabelText: WideString
safecall;
function Get_Visible: WordBool
safecall;
function Get_VisibleDockClientCount: Integer
safecall;
function IsRightToLeft: WordBool
safecall;
function UseRightToLeftReading: WordBool
safecall;
function UseRightToLeftScrollBar: WordBool
safecall;
procedure _Set_Font(var Value: IFontDisp)
safecall;
procedure InitiateAction
safecall;
procedure Set_Cursor(Value: Smallint)
safecall;
procedure Set_DoubleBuffered(Value: WordBool)
safecall;
procedure Set_EditText(const Value: WideString)
safecall;
procedure Set_Enabled(Value: WordBool)
safecall;
procedure Set_Font(const Value: IFontDisp)
safecall;
procedure Set_HelpKeyword(const Value: WideString)
safecall;
procedure Set_HelpType(Value: TxHelpType)
safecall;
procedure Set_LabelText(const Value: WideString)
safecall;
procedure Set_Visible(Value: WordBool)
safecall;
procedure SetSubComponent(IsSubComponent: WordBool)
safecall;
end;

implementation

uses ComObj;

{ TLabelEditX }

procedure TLabelEditX.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
begin
{TODO: Define property pages here. Property pages are defined by calling
DefinePropertyPage with the class id of the page. For example,
DefinePropertyPage(Class_LabelEditXPage)
}
end;

procedure TLabelEditX.EventSinkChanged(const EventSink: IUnknown);
begin
FEvents := EventSink as ILabelEditXEvents;
end;

procedure TLabelEditX.InitializeControl;
begin
FDelphiControl := Control as TLabelEdit;
end;

function TLabelEditX.DrawTextBiDiModeFlagsReadingOnly: Integer;
begin
Result := FDelphiControl.DrawTextBiDiModeFlagsReadingOnly;
end;

function TLabelEditX.Get_AlignDisabled: WordBool;
begin
Result := FDelphiControl.AlignDisabled;
end;

function TLabelEditX.Get_Cursor: Smallint;
begin
Result := Smallint(FDelphiControl.Cursor);
end;

function TLabelEditX.Get_DoubleBuffered: WordBool;
begin
Result := FDelphiControl.DoubleBuffered;
end;

function TLabelEditX.Get_EditText: WideString;
begin
Result := WideString(FDelphiControl.EditText);
end;

function TLabelEditX.Get_Enabled: WordBool;
begin
Result := FDelphiControl.Enabled;
end;

function TLabelEditX.Get_Font: IFontDisp;
begin
GetOleFont(FDelphiControl.Font, Result);
end;

function TLabelEditX.Get_HelpKeyword: WideString;
begin
Result := WideString(FDelphiControl.HelpKeyword);
end;

function TLabelEditX.Get_HelpType: TxHelpType;
begin
Result := Ord(FDelphiControl.HelpType);
end;

function TLabelEditX.Get_LabelText: WideString;
begin
Result := WideString(FDelphiControl.LabelText);
end;

function TLabelEditX.Get_Visible: WordBool;
begin
Result := FDelphiControl.Visible;
end;

function TLabelEditX.Get_VisibleDockClientCount: Integer;
begin
Result := FDelphiControl.VisibleDockClientCount;
end;

function TLabelEditX.IsRightToLeft: WordBool;
begin
Result := FDelphiControl.IsRightToLeft;
end;

function TLabelEditX.UseRightToLeftReading: WordBool;
begin
Result := FDelphiControl.UseRightToLeftReading;
end;

function TLabelEditX.UseRightToLeftScrollBar: WordBool;
begin
Result := FDelphiControl.UseRightToLeftScrollBar;
end;

procedure TLabelEditX._Set_Font(var Value: IFontDisp);
begin
SetOleFont(FDelphiControl.Font, Value);
end;

procedure TLabelEditX.InitiateAction;
begin
FDelphiControl.InitiateAction;
end;

procedure TLabelEditX.Set_Cursor(Value: Smallint);
begin
FDelphiControl.Cursor := TCursor(Value);
end;

procedure TLabelEditX.Set_DoubleBuffered(Value: WordBool);
begin
FDelphiControl.DoubleBuffered := Value;
end;

procedure TLabelEditX.Set_EditText(const Value: WideString);
begin
FDelphiControl.EditText := String(Value);
end;

procedure TLabelEditX.Set_Enabled(Value: WordBool);
begin
FDelphiControl.Enabled := Value;
end;

procedure TLabelEditX.Set_Font(const Value: IFontDisp);
begin
SetOleFont(FDelphiControl.Font, Value);
end;

procedure TLabelEditX.Set_HelpKeyword(const Value: WideString);
begin
FDelphiControl.HelpKeyword := String(Value);
end;

procedure TLabelEditX.Set_HelpType(Value: TxHelpType);
begin
FDelphiControl.HelpType := THelpType(Value);
end;

procedure TLabelEditX.Set_LabelText(const Value: WideString);
begin
FDelphiControl.LabelText := String(Value);
end;

procedure TLabelEditX.Set_Visible(Value: WordBool);
begin
FDelphiControl.Visible := Value;
end;

procedure TLabelEditX.SetSubComponent(IsSubComponent: WordBool);
begin
FDelphiControl.SetSubComponent(IsSubComponent);
end;

initialization
TActiveXControlFactory.Create(
ComServer,
TLabelEditX,
TLabelEdit,
Class_LabelEditX,
1,
'',
0,
tmApartment);
end.

to gonghh:
我要,分给你.
TigerDing@163.com

To TigerDing:
已发送，请查收！！！

to gonghh:
呵呵，我不要了！对我来说没什么用！
看我上面的代码，虽然简单了点，但你感觉和你的是不是大至相同啊
请各位大侠看好我的题目，然后给我一个满意的回复，好不好啊
不要说什么new一个，我上面的就是自己new的，不过没有和程序有什么交互作用，一点用没
有

[][][]

我也要，cafekitty@963.net
是那个用indy在ie里发邮件的东东哦