type
TDatabaseThread = class(TThread) //线程声明
private
FQ1:TADOQuery;
FQtmp:TADOQuery;
AdoConn:TADOConnection;
protected
procedure Execute; override;
public
constructor Create(); overload;
end;
-----------------------------------------------------
procedure Tzx_jz_frm.bjgClick(Sender: TObject); //实例化
begin
inherited;
TDatabaseThread.Create();
end;
constructor TDatabaseThread.Create(); //线程创建
begin
inherited Create(False);
end;
procedure TDatabaseThread.Execute; //线程执行
var degree,i:integer;
zxj:real;
buyerid,sqlstr,idZx,NameZx:string;
begin
AdoConn := TADOConnection.Create(nil);
FQ1:=TADOQuery.create(nil);
FQtmp:=TADOQuery.create(nil);
CoInitialize(nil);
AdoConn.ConnectionString :=dm.conn.ConnectionString ;
AdoConn.LoginPrompt :=false;
AdoConn.Connected ;
FQ1.Connection :=AdoConn;
FQtmp.Connection :=AdoConn;
zx_jz_frm.d1.Enabled :=false;
........................
end;

以上代码放在c/s程式中可以正常执行，但放到activex form 中时 线程执行事件未被执行。不知是什么原因。。请大家指教
when my application into c/s ,the thread can work normal,when place it into activex form,the execute event don't start,any one can help me ? thanks

編輯記錄