创建线程方式不正确,还请高手帮忙啊
type
TSerial =class(TObject)
private
commHandle:Cardinal;
public
function comReceive();
function comThread();
end;
以上是类的声明
function TSerial.omReceive();
begin
Com_Thread:=CreateThread(nil,0,@CommThread,nil,0,ThreadID);
end;
以上这种创建线程方式不正确,还请高手帮忙啊