点击保存按钮后,将相应数据提交到mssql数据库,但是在提交的过程中,界面不动,不能进行任何操作了,必须等保存完才可以动。据说可以用线程实现,不知道怎么弄,请给我个例子,谢谢,
解决方案 »
- ffmpeg新版本的Delphi版本最新函数声明及相关内容那里有
- 如何根据一个变量值来生成一组数字??
- 怎样实现两个人通过internet网在线音频聊天?
- 请教一个信息学竞赛里银行贷款的问题,我不明白答案
- 关键字:DELPHI ,ACCESS,密码窗口
- 为什么我的应用程序必须频繁更改协议>???
- Web Service开发高手在吗?
- 如何编程实现数据库对象(表,存储过程等)的脚本描述?
- 请问如何将下载的控件加到delphi的控件面板上?先谢谢了!!!
- 安装程序里图片太多安装慢
- pngimage delphi 2009 无法编译
- delphi组件fastreport导出的excel报表怎么能连在一起?
置顶的帖子你看看吧
http://topic.csdn.net/u/20110217/11/56577c65-2e77-4f8f-b541-0be47cdb4d60.html?96425
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure DoInThread(Sender: TObject);
end;var
Form1: TForm1;implementation{$R *.dfm}type
TProc = procedure(Sender: TObject) of object; TMyThread = class(TThread)
proc: TProc;
procedure Execute; override;
end;{ TMyThread }procedure TMyThread.Execute;
begin
inherited;
FreeOnTerminate := True;
//提交的过程放在此处
if Assigned(proc) then proc(Self)
end;procedure TForm1.DoInThread(Sender: TObject);
begin
Sleep(10000);//此处模拟耗时的操作
end;procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage('a');
with TMyThread.Create(True) do
begin
proc := DoInThread;//在线程中执行,不会卡
Resume;
end;
ShowMessage('b');
end;end.