现在有LBL1标签控件
我在线程中str:=form1.lbl1.Caption 获取到的字符为空
但在正常的BUTTON下 却能正常获取
谁能告诉我在线程下要怎么获取啊
不是说线程中 只要不写入VCL都是安全的么
我在线程中str:=form1.lbl1.Caption 获取到的字符为空
但在正常的BUTTON下 却能正常获取
谁能告诉我在线程下要怎么获取啊
不是说线程中 只要不写入VCL都是安全的么
解决方案 »
- 用delphi 和vb6.0 怎样读取和写入sqlserver的二进制字段
- 哥哥姐姐们小弟又来了,大家知不知道dxDBTreeList这个控件在哪有下载呀,谢谢在线等
- 读文本到数据库,请帮我看一下代码好吗!
- 终于放假了,散分!
- 如何让子窗口在主窗口内打开呢?
- 请问各位大侠,这个函数定义的是什么意思~
- 续,获取dbgrid网格内容的问题
- 谁知道汉字的首拼表,就是输入一个汉字可以知道它的拼音首码。
- 如何去掉调用Dll在任务栏产生的图标
- 补充C/S下DELPHI 向MSSQL追加记录问题?请高手给个详细例子!
- 存储过程,动态创建TADOStoredProc,偶尔提示需要参数@o_ID,但未提供该参数
- delphi数据库*表
unit Unit1;interfaceuses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Vcl.StdCtrls;type TForm1 = class(TForm)
Button1: TButton;
lbl1: TLabel;
procedure Button1Click(Sender: TObject);
end; TMyThread = class(TThread)
protected
procedure Execute; override;
end;var
Form1: TForm1;implementation{$R *.dfm}{ TMyThread }procedure TMyThread.Execute;
begin
FreeOnTerminate := True;
Synchronize(procedure
begin
Form1.Caption := Form1.lbl1.Caption;
end);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
TMyThread.Create;
end;end.