现在有LBL1标签控件
我在线程中str:=form1.lbl1.Caption 获取到的字符为空
但在正常的BUTTON下 却能正常获取
谁能告诉我在线程下要怎么获取啊
不是说线程中 只要不写入VCL都是安全的么
我在线程中str:=form1.lbl1.Caption 获取到的字符为空
但在正常的BUTTON下 却能正常获取
谁能告诉我在线程下要怎么获取啊
不是说线程中 只要不写入VCL都是安全的么
解决方案 »
- 程序在运行,但是不响应任何鼠标键盘消息,不知怎么回事?
- wise打包的安装程序,在安装运行时,用鼠标不能切换到其它WINDOWS窗口
- 用过Delphi 2005的进来回答偶一个问题
- 如何让MDI子窗体最大化时充满MDI窗体的Client区域,而且不会掩盖MDI窗体的Toolbar,也就是只填满MDI窗体ToolBar下面的Client区域,还有当其
- 在英文操作系统下的软驱问题
- delphi7,怎样用socket传文本?
- 一个让我不知所措的问题!在线等待!
- 谁有mis数据库常用字段的英文名,我翻译得简直不伦不类。
- 谁有cxdbtreeview或者CXtreeview的使用说明或者DEMO吗?
- 哪里有DELPHI 5下载
- 存储过程,动态创建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.