unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;type
TMyThread = class(TThread)
protected
procedure Execute; override;
end; TForm1 = class(TForm)
Button1: TButton;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
FMyThread: TMyThread; public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
FMyThread := TMyThread.Create(True);
FMyThread.FreeOnTerminate := True;
FMyThread.Resume;
end;{ TMyThread }procedure TMyThread.Execute;
begin
Form1.Table1.Active := True;
end;end. 这段代码是启动一个线程, 让Table1.active:=True;我想再启动一个线程Table2.active:=True; 怎么做.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;type
TMyThread = class(TThread)
protected
procedure Execute; override;
end; TForm1 = class(TForm)
Button1: TButton;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
FMyThread: TMyThread; public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
FMyThread := TMyThread.Create(True);
FMyThread.FreeOnTerminate := True;
FMyThread.Resume;
end;{ TMyThread }procedure TMyThread.Execute;
begin
Form1.Table1.Active := True;
end;end. 这段代码是启动一个线程, 让Table1.active:=True;我想再启动一个线程Table2.active:=True; 怎么做.
解决方案 »
- 禁止复制、剪切Excel中的数据
- 关于文本编辑器的问题
- 如何使用WriteProcessMemory函数设置EDIT框中的内容
- 存取图片到数据库问题
- 菜鸟提问~~~
- 没有过什么实际项目,简历应该写些什么才好?
- 疯狂散分,第六期<电脑迷>光盘的主程序用delphi作的,如何实现里面的若干效果,在线等待,
- 这个函数DELPHI如何定义?
- 哪地方有 电脑商情报,电脑编程技巧与维护,软件报 关于DELPHI文章下载??
- var p: TfrPictureView;显示未定义? 怎么解决
- 为何删除ADO连接的数据库中的记录系统会出错?
- !!!如何实现两个不同网页之间的ACTIVEFORM之间的通讯!!!给点思路也好!!:)
第一个线程启动adotable1.active:=True; 上头的那段代码已实现了
第二个线程adotable2.active=True;没有实现, 怎样执行多个线程