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中加入
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中加入