我想修改tquery的本身,使其在BEFOREOPEN前先执行一个showmessage('1');怎么实现呢
解决方案 »
- delphibbs网站怎么了?20070908
- 请问结束了某一进程后,如何使它的托盘图标立即消失?
- delphi中Query连接数据库总显示 no SQL statement avialable
- 还是 问 TWebBrowser中如何屏蔽javascript的弹出窗口?
- GMail邀请
- 如何给自定义组件定制图标
- 显示form的时候抛出异常!
- 有“三层”开发经验的朋友请进,“三层”系统中怎样在服务器端对客户端进行权限控制。
- 我想显示数据库中的所有字段,但是我要用DISTINCT 刷掉其中重复的zch字段。
- 记录指针总在第一条?Why?
- 在线请教:我想实现一个控件,可是在install的时候,老是出错:[Error] RLINK32: Unsupported 16bit resource in file "E:\delphi\demo\a
- 如何调用OUTLOOK?怎么设置里面的POP3和SMTP?
....
TMyQuery = class(TQuery)
protected
procedure DoBeforeOpen;override;
end;
....
implementation
....
procedure TMyQuery.DoBeforeOpen;
begin
ShowMessage('1');
Inherited;
end;
....