怎么在api form中使用vcl组件？

Question

用api产生的窗口反回的是实例的地址，
加clientsocket，还是比较困难，类型是不一样的，
还是建议你使用Tform吧。

Answer 1

一 uses  ScktComp；
二 var
   ClientSocket1: TClientSocket;
三 设置ClientSocket1属性即可；

Answer 2

其他组件的加入类似，即
一，uses该组件所在单元；
二，定义该组件类型变量；
三，使用临时生成组件；这样，程序会大一些，原因很简单，比如你即使只想用个self.handle而加入了forms单元，那么程序也将增大近300k.

Answer 3

不可视控件:
var
  AClientSocket:TClientSocket;
begin
  AClientSocker := TClientsocket.Create(nil);
  ...
end;
可视控件:
var
  AEdit: TEdit;
begin
  AEdit := TEdit.CreateParented(hwndMain);
  ...
end;

Answer 4

不可视控件:
var
  AClientSocket:TClientSocket;
begin
  AClientSocker := TClientsocket.Create(nil);
  ...
end;
可视控件:
var
  AEdit: TEdit;
begin
  AEdit := TEdit.CreateParented(hwndMain);
  ...
end;