很深的一个问题,不知delphi高手能否帮忙解决一下呢?来看看吧.

Question

我在vb下编写了一个控件
Private Sub UserDocument_Initialize()
userprint("ddd","ddddddd")
End Sub
sub userprint(d as string,c as string)
msgbox d
msgbox c
end sub
保存为userinfo控件现在我想在delphi中使用这个控件
1 如何加载?
2 如何传值呢?   如:我想在delphi中传一个d为"程序员" c为"你好"  到控件中,如何实现呢?

Answer 1

对VB不熟，我看了一下好像你写的是一个过程吧，而不是一个控件procedure userprint(d,c: string);
begin
  showmessage(d);
  showmessage(c);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  userprint('ddd','ddddddd');
end;

Answer 2

直接在delphi里写这两个过程不就可以了吗？就想 huojiehai样

Answer 3

如果是ocx的话
用Compent-Import ActiveX导入就可以和普通组件一样用了。