我想修改tquery的本身,使其在BEFOREOPEN前先执行一个showmessage('1');怎么实现呢. 我想修改tquery的本身,使其在BEFOREOPEN前先执行一个showmessage('1');怎么实现呢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 申明一个TQuery的派生类,然后Override这个类的DoBeforeOpen过程,如下:type .... TMyQuery = class(TQuery) protected procedure DoBeforeOpen;override; end; ....implementation....procedure TMyQuery.DoBeforeOpen;begin ShowMessage('1'); Inherited;end;.... delphi checkbox serversocket 绑定IP Delphi2006Copyfile调用后不能删除原文件,急!! 请问Delphi中如何获得Windows任务管理器中的应用程序任务数 动态创建窗体和MediaPlayer后怎么Free掉的问题 问题真那么难么?五星都没看出来? 下面几个是在编写多窗口浏览器时遇到的问题,希望大家帮助解答! 菜鸟问题8 我需要这样一个小程序,请哪位大侠帮忙!急,在线等,高分送 我在使用Oracle中Blob遇到了难题,请高手指点迷津 小弟对Delphi一无所知,请各位GG、JJ请帮忙!!! 如何实现moden拨号?谢谢
....
TMyQuery = class(TQuery)
protected
procedure DoBeforeOpen;override;
end;
....
implementation
....
procedure TMyQuery.DoBeforeOpen;
begin
ShowMessage('1');
Inherited;
end;
....