不同MDI窗口之间操作的问题。 ( 积分: 100 )

  • 主题发起人 主题发起人 himoo
  • 开始时间 开始时间
H

himoo

Unregistered / Unconfirmed
GUEST, unregistred user!
我建立了3个不同的MDI窗体,并在主程序运行时,打开了这3个MDI
procedure TMainForm.CreateMDIChild(const Name,FormName:string; Const Top,left,height,width:integer);
var
Child: TMDIChild;
begin
{ create a new MDI child window }
if FormName='WeiChuLi' then
Child := WeiChuLi.TWeiChuLiFrm.Create(Application);
if FormName='Search' then
Child := Search.TSearchFrm.Create(Application);
if FormName='Info' then
Child := Info.TInfoFrm.Create(Application);

Child.Caption := Name;
Child.Top :=top ;
Child.Left :=left ;
Child.Height := height;
Child.Width := width;
end;


Search是一个搜索窗体,info是一个搜索详细信息展示
搜索结果出现在Search的一个TreeView中,点击TreeView的某一个node,
程序就会搜索这个Node.Text :
Select * from [AAA] where Y = 'Node.Text'
结果只有一条记录。

怎么使得,这个这条记录的所有列会在 info这个MDI的 一个TreeView中加入
 
uses info;

Info.Items.Add(Node, MainForm.Q1.FieldByName('Y').AsString);

这样不成啊...
 
换句话说,一个MDI窗口怎么控制另外一个MDI窗口呢
 
可以使用消息机制实现在不同的子窗体中进行通信
 
(Main.MainForm.MDIChildren[X].Controls[X] as TTreeView).Items.Clear

可以结贴了
 
本贴分数分配给
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3827265
 
后退
顶部