连接远程sql时怎么让界面不假死？

Question

把这部分放到线程中去if True=IfCon then //结果上面线程中的代码还没执行完，下面的代码已经一同执行下去了
  showMessage('连接成功！')
  else
  showMessage('连接失败！')

Answer 1

连接代码我是写在了另一个wait窗体里面，用来显示一个滚动的gif，正在连接……。连接成功后，关闭wait窗体，再在主线程中判断是否连接成功，然后再执行下面的事件的。

Answer 2

那就用个While循环，var
  IfCon: integer;procedure TForm1.MyMethod;
begin
  Try
    ADOQuery1.Open; //打开数据库连接
    IfCon:=1;
  Except
    ifCon:=-1;
  End;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  IfCon := 0;
  TThread.CreateAnonymousThread(MyMethod).Start; //执行线程，不会卡死
 
  {if True=IfCon then //结果上面线程中的代码还没执行完，下面的代码已经一同执行下去了
  showMessage('连接成功！')
  else
  showMessage('连接失败！')}  while IfCon = 0 then
  begin
    Application.ProcessMessages;
    Sleep(200);
  end;  if IfCon = 1 then
    showMessage('连接成功！')
  else 
    showMessage('连接失败！');
end;

Answer 3

改用dbexpress组件吧。ADO连接数据库，一次需要把所有记录读到本地。一旦数据量大，容易超时。

Answer 4

连接数据库的时候，首先显示你的等待窗口，然后再等待窗口里面去创建连接线程
你的等待窗口模态化显示，然后等待线程给自己PostMessage是否连接成功等等
如果等待窗口被手动关闭，那么直接在等待窗体里去关闭连接线程即可

Answer 5

谢谢四楼feiba7288的回答，解决问题了 

Answer 6

var
  Form1: TForm1;
  ifCon:integer;
implementation{$R *.dfm}
procedure MyMethod;
begin
Try
  if Form1.ADOConnection1.Connected then
  begin
  ifcon:=1 ;
  Form1.Canvas.TextOut(10,10,'第一'+IntToStr(iFcon)) ;
  end
  else
  begin
  Ifcon:=-1;
  Form1.Canvas.TextOut(30,30,'第二'+IntToStr(iFcon));
  end;
Except
 ifCon:=-1;
 Form1.Canvas.TextOut(50,50,'第三'+IntToStr(iFcon));
End;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  IfCon:=0;
  TThread.CreateAnonymousThread(MyMethod).Start; //!!!
  while IfCon=0 do
   begin
     Application.ProcessMessages;
     Sleep(200);
   end;
  if IfCon = 1 then
     showMessage('连接成功！')
   else 
     showMessage('连接失败！');
   Form1.Canvas.TextOut(70,70,'第四'+IntToStr(iFcon));   
end;end.