如何提交大量数据的时候,出现一个带图片的form.

Question

我建立了个form,给数据库提交大量数据的时候希望在弹出一个form,有图片.提示正在传送数据
这个应该怎么做我做了1个,不是程序死掉了,就是图片出不来.

Answer 1

1、先定义一个线程：
unit Unit_FrmMain;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Menus;type
  TInitThread = class(TThread)  //定义一个线程对象
  private  protected
    procedure Execute; override;
  end;  TFrmMain = class(TForm)
    MainMenu1: TMainMenu;
    M1: TMenuItem;
    M2: TMenuItem;
.......2、然后写出线程执行代码：
{ TInitThread }procedure TInitThread.Execute;
begin
  FreeOnTermiNate:=True;
  {此处写出你的数据保存代码}
end;

Answer 2

没必要用线程。新form show了后，代码中添加一个Application.ProcessMessage