我试图做一个小闪屏,所以我的程序可以打开querys withaout挡住了我的aplication。 我写的代码是这样的。TOraDataSet挡住了我的计划,即使非阻塞设置为true
procedure TOpenThread.OpenTable;
begin
FActiveTable.NonBlocking := true;
FActiveTable.open;
end;
procedure TOpenThread.AbrirTablas;
begin
FActiveTable := FOwnerPlan.TablasEdicion.Tabla;
Synchronize(OpenTable);
while FActiveTable.Executing do
begin
if Terminated then CancelExecution;
sleep(10);
end;
FActiveTable.NonBlocking := false;
end;
此代码是在一个线程中执行,并且一直这样做,而主线程被我使用的是2007年德尔福
哪里是主线程阻塞? –