BPL主窗口button1点击后弹出一个窗口,如何将双击这个窗口内的dbgrid返回的数据自动加载到BPL主窗口的edit1.text上
解决方案 »
- 关于用线程操作CXGRID ROW的问题
- 如何修改Messages.pas里的常量? (结贴率100%)
- 这种报表格式如何用ReportMachine实现
- 关于FastReport
- 为什么用Image1.Canvas画出的内容,在全屏后Image1并不全屏显示
- 关于application的ONactivate(),Ondeactivate()
- 专用对话框!代码编辑的问题!!再线等待!!!
- 对于动态创建的一组combobox与edit控件怎么用鼠标对它进行拖动改变它的坐标位置到新坐标?
- 一个100分的打印问题!!
- 向大伙请假一个DELPHI 问题。。。 请帮忙啊 。。
- 关于delphi控制并口微型针式打印的问题
- 操作IE时提示ShellAPE.dcu 找不到
当双击dbGrid的时候 把得到的值赋给全局变量 edit1.text := 全局变量
1、BPL主窗口和弹出窗口,都use同一个TDataModule,其中弹出窗口的DBgrid与该TDataModule中的一个TDataSource相关联,TDataSource与一个数据集关联(如TClientDataSet)。2、在BPL主窗口类中增加一个public procedure getCurrentRecord();该过程读取TDataModule中TClientDataSet的当前记录,并把返回值写在edit1.text中。3、在主窗口的interface部分Uses弹出窗口模块。4、在弹出窗口的implementation部分Uses主窗口模块。5、在DBgrid的DblClick事件处理过程中调用BPL主窗口.getCurrentRecord()过程。4、OK了。