程序有1个主窗体(包含一个treeview控件),3个子窗体.实现功能:点击treeview项目后,3个子窗体能知道被点击项目的名字.第一解决给50分.
解决方案 »
- 三国也变红花了,哈哈,恭喜下
- 帮忙找一下错误,有分数的!
- 怎样删除一个数据库里两条完全一样的记录中的任意一条?sql server 2000的数据库。无关键字与主键。
- 第三次关于DBLookupComboBox。解决500分相送.(在其它的贴子给400分)
- 老板毕竟是老板,打工的始终是打工的!!!愤怒中,散分去去晦气。
- 請問:DBChart中Series的Masks選項的Style中的Percent是怎樣實現的?(即數值的百分比是怎樣求得的?)
- 如何写注册软件的代码?
- 哪里有像Microsoft的详细列表那样的ListBox?有这样的控件或代码吗?
- 寻installshield 6.30的汉化包或中文语言包,谢
- DATASNAP对象的释放
- [各位高手,请问没有硬字库的1121怎么通过写并口打出汉字来?]
- 如何托拽含有javascript地链接
begin
//在子窗体中该干什么干什么……
end;当Tree的OnChange时,主窗体分别调用3个子窗体的NotifySelectionChange方法。ChildForm1.NotifySelectionChange(MyTree.Selected);
ChildForm2.NotifySelectionChange(MyTree.Selected);
ChildForm3.NotifySelectionChange(MyTree.Selected);
...
2.发送消息给子窗体。如
SendMessage(ChildFor1.hande,WM_USERMessage,node.index,0).
然后在子窗体中写相应消息处理代码
每个子窗体里声明:
procedure OnClickNode(var Msg:TMessage);message WM_USER+501;procedure ChildForm1.OnClickNode(var Msg:TMessage);
begin
Msg.WParam/////////是结点的index
end;
//////////////////////////
主窗体点击结点后
SendMessage(ChildForm1.hande,WM_USER+501,node.index,0);
SendMessage(ChildForm2.hande,WM_USER+501,node.index,0);
SendMessage(ChildForm3.hande,WM_USER+501,node.index,0);
With ChildForm.Create(nil) do
try
//在这里传参数给子窗体
ShowModal;
finally
Free;
end;
传参数的方法。是在子窗体的public里定义一个属性。
先写,property MyValue: String;然后按Ctrl + Shift + C.