我在DLL中建了一个窗体,再在窗体中建了个线程,这个线程为什么不能访问窗体中的控件?!我用了两种方法建线程,第一种没反应,第二各(API),提示出错“内存不能为

To暗夜中独舞,
先谢谢你的热心,你发的例子我在做DLLRORM前已研究许多次了的,有关建DLL窗体的代码我之前差不多都参考了一遍,你发的例子我之前也看过了!现在问题是DLL窗体中调用线程??
to zqw0117,知道!但在这没关系!MEMO1不会冲突!
 
在你的窗体中加
const
wm_mymsg=wm_user+1;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

procedure TForm1.ProcMyMsg(var msg: TMessage);
begin
Memo1.Lines.Add('API 运行线程') ;
end;

procedure TMyThread.Execute;
begin
sendmessage(form1.handle,wm_mymsg,0,0);
freeonterminate:=true;
end;

[:D][:D][:D]
 
to maze,理论可行,实际调试后证明不行啊!主窗体收不到消息,不作处理!!没显示'API 运行线程'
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部