1、我在一個QueryForm裡有個DBGrid1,其中DBGrid1有個雙擊事件://雙擊瀏覽數據
procedure TQueryForm.DBGrid1DblClick(Sender: TObject);
begin
try
managementno:=DBGrid1.Columns[1].Field.Value;
if DataPreviewForm=nil then
begin
DataPreviewForm:=TDataPreviewForm.Create(Application);
DataPreviewForm.QuickRep1.Preview;
end
else
DataPreviewForm.QuickRep1.Preview;
except
on e:Exception do
end;
end;2、我在預覽完後直接按QuickRep1預覽上的Close關閉預覽,這時我想同時關閉DataPreviewForm,請問怎樣處理?如果我上面不關閉DataPreviewForm,那麼我雙擊記錄1預覽詳細記錄後,再去雙擊記錄2想去預覽它的詳細記錄時,這時還是記錄1的詳細記錄,請問我怎樣做才會雙擊記錄1時是1的,雙擊記錄2時是2的。謝謝!
procedure TQueryForm.DBGrid1DblClick(Sender: TObject);
begin
try
managementno:=DBGrid1.Columns[1].Field.Value;
if DataPreviewForm=nil then
begin
DataPreviewForm:=TDataPreviewForm.Create(Application);
DataPreviewForm.QuickRep1.Preview;
end
else
DataPreviewForm.QuickRep1.Preview;
except
on e:Exception do
end;
end;2、我在預覽完後直接按QuickRep1預覽上的Close關閉預覽,這時我想同時關閉DataPreviewForm,請問怎樣處理?如果我上面不關閉DataPreviewForm,那麼我雙擊記錄1預覽詳細記錄後,再去雙擊記錄2想去預覽它的詳細記錄時,這時還是記錄1的詳細記錄,請問我怎樣做才會雙擊記錄1時是1的,雙擊記錄2時是2的。謝謝!
解决方案 »
- chart chart chart 问题问题问题
- 请教FTP连接死机的问题
- control '' has no parent window
- IE工具条的按钮起来后回不去,怎么会事啊?而且也不能显示hint,
- 请大家分析啊我这代码!错在哪儿?
- 请问如何动态生成按纽并帮定事件
- DBGridEh+AdoQuery,在DBGridEh中移动到下一条记录,AdoQuery.RecNo却始终为-1,为什么?
- 我从TComboBox继承了一个控件,为什么运行出错(2)
- 请教模拟按键
- 装双操作系统NT和Win98,会有什么不好的地方?应注意什么?程序都还能正常运行吗?
- TIdTCPClient与TServerSocket通信问题?
- 如何将application.onexception 赋值给自己的异常处理函数
begin action:=cafree;
dataprviewform:=nil;
end;
Tquickrep1.onafterprivew();
begin
self.close;
end;