在属性设置窗体中private下设置一个FDBGrid(用它作为一个中间变量来指向传递过来的aDBGrid参数): var Form1: TForm1之下写:function ShowXXXForm(aDBGrid: TDBGrid): Boolean; begin with TForm1.Create(nil) do begin FDBGrid := aDBGrid; ShowModal; Free; end; end;然后在你的属性设置窗体的‘确定’按钮中写:FDBGrid.xxx := xxx;
如果很多这样的设置窗体,可能比较麻烦,如果是d,f也想得到设置的值,也不好传给,因为不知是d还是f窗体吧?请问还有其他方法吗?谢谢
var
Form1: TForm1之下写:function ShowXXXForm(aDBGrid: TDBGrid): Boolean;
begin
with TForm1.Create(nil) do
begin
FDBGrid := aDBGrid;
ShowModal;
Free;
end;
end;然后在你的属性设置窗体的‘确定’按钮中写:FDBGrid.xxx := xxx;