通过发送消息也能代替线程的同步函数,但sendmessage中后两个参数到底该怎么写啊,

解决方案 »

  1.   

    不管怎样都要写消息处理函数吗?
    能多举几个例子吗?
    假如说我要让一个edit1的内容变成‘hehe’,我要让窗体上弹出一个菜单,等等,对这个我真的很疑惑啊,只能给这么多了,大家帮帮我。
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
     str:string;
    begin
    str:='hehe';
    sendmessage(edit1.Handle,wm_msg,0,integer(pchar(str)));
    end;procedure Tform1.wmmsg(var msg:Tmessage);
    begin
    edit....//这好象不能引用edit1,不过他们是在一个单元里,为什么啊,
    我想写的是edit1。text:=‘..‘;
    该怎么写呢
    大家帮我讲讲那两个参数,
      

  3.   

    哦,上面那个不能引用是我写错了一点,可以引用,
    procedure TForm1.Button1Click(Sender: TObject);
    var
     str:string;
    begin
    str:='hehe';
    sendmessage(edit1.Handle,wm_msg,0,integer(pchar(str)));
    end;procedure Tform1.wmmsg(var msg:Tmessage);
    begin
    edit1.text:='hehe';
    end;可我运行了没反应啊。
    大家帮忙,555555555555555