A
autofish
Unregistered / Unconfirmed
GUEST, unregistred user!
我在一个动态连接库里有一个函数，这个函数主要是创建一个提示窗口和一个工作线程。
如下：
function MyFunc(Param: TMyParam): boolean;
begin
MyForm := TMyForm.CreateParented(Param.ParentHwnd);
TMyThread.Create(Param);
// MyForm.Show;
// Result:=true;
Result:=(MyForm.ShowModal=1);
end;
假如我用ShowModal方法，我的MyForm窗体根本无法接收到我的输入（鼠标，键盘的输入），
我用Show方法，可以接收到我的输入，但我想在完成后台工作前不容许用户再进行其他操作，
有什么办法解决这个问题，150分送上。
如下：
function MyFunc(Param: TMyParam): boolean;
begin
MyForm := TMyForm.CreateParented(Param.ParentHwnd);
TMyThread.Create(Param);
// MyForm.Show;
// Result:=true;
Result:=(MyForm.ShowModal=1);
end;
假如我用ShowModal方法，我的MyForm窗体根本无法接收到我的输入（鼠标，键盘的输入），
我用Show方法，可以接收到我的输入，但我想在完成后台工作前不容许用户再进行其他操作，
有什么办法解决这个问题，150分送上。
LLAPP := Application