procedure TMainForm.actTermRloginExecute(Sender: TObject);
var
bRlogin: Boolean;
i: integer;
begin
inherited;
bRlogin := False;
if self.MDIChildCount > 0 then begin
if MessageBox(GetActiveWindow,'重新登录将关闭所有仿真终端,是否继续?'
,'提示',MB_OKCANCEL+MB_ICONQUESTION) = mrOK then begin
bRlogin := True;
for i := 0 to self.MDIChildCount-1 do
self.MDIChildren[i].Close;
end;
end else begin
bRlogin := True;
end;
if bRlogin then begin
self.Hide;
self.Show;
end;
end;
这是 一个自己定义的过程。
这段代码的具体功能您不用细看,我只想问一下,inherited;到底啥用?我看过delphi 6.0的帮助,难道是为了使用self吗?
var
bRlogin: Boolean;
i: integer;
begin
inherited;
bRlogin := False;
if self.MDIChildCount > 0 then begin
if MessageBox(GetActiveWindow,'重新登录将关闭所有仿真终端,是否继续?'
,'提示',MB_OKCANCEL+MB_ICONQUESTION) = mrOK then begin
bRlogin := True;
for i := 0 to self.MDIChildCount-1 do
self.MDIChildren[i].Close;
end;
end else begin
bRlogin := True;
end;
if bRlogin then begin
self.Hide;
self.Show;
end;
end;
这是 一个自己定义的过程。
这段代码的具体功能您不用细看,我只想问一下,inherited;到底啥用?我看过delphi 6.0的帮助,难道是为了使用self吗?
解决方案 »
- 求FindWindowEx使用方法
- 请问两部计算机怎样通过ADSL进行远程通讯?
- 如何出文件尾部读取数据
- 这个问题如何解决?
- 怎样才能把D7的TShellTreeView控件设置为只读?
- 关于用ics的ftpclient做的下载程序.连续下载一定数量的文件后会造成机器重启的问题,请教各位大虾!
- 问一个OnChange事件的问题,不是老问题,请花点时间帮忙看看
- 关于鼠标和图标在delphi中的应用问题 非常感谢!
- dbgrid有没有一个当前记录移动时的事件?名字应该叫beforenext 或是什么把
- 为什么在设计期间可以在DBGRID里看到字段,在运行期间就看不到了呢???
- Delphi6如何导入Module下的Function及Const
- 不知能否用SQL语句实现?
是继承的意思,一句话它的作用是执行父类的同名方法,其余的部分就是你在子类中新添的部分