晕,这个问题,当然是在主窗体 call ,在子窗体 define 自定义方法了
unit Unit1;
...
TForm1 = Class(TForm) //主窗体
...
//这里uses Form2
...
procedure TForm1.OnButton1Click;
begin
Form2.myshowModal(Dataset1,Dbgrid1); //这里调用自己的方法
end;
end;
//////////////////// 子窗体单元
unit unit2;
...
TForm2 = Class(TForm)
procedure Myshowmodal(Dataset:TADOdataset;DBgrid:TDBGrid);
end;
...
procedure TFORM2.Myshowmodal(Dataset:TADOdataset;DBgrid:TDBGrid);
begin
FDBGRID := ....
FDATASet :=
ShowMOdal; //在这里再Show出来,设计期是Visible := false 的 form
end;
说到这么明了,如果还问,跟你急
