关于inherited;

Question

procedure Tfm_Login.img1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  ReleaseCapture;
  Perform(WM_SysCommand,$f017,0);
end;procedure Tfm_Login.btn_CloseClick(Sender: TObject);
begin
  inherited;
  close;
end;上面的这两个  inherited 是表示什么意思   从某代码里面抽出来的

Answer 1

还有帮忙解释下ReleaseCapture 这个是怎么用的  

Answer 2

1.
inherited;是继承的意思，举个例子吧, 比如有一个窗体TForm1,里面有一个Button1
procedure TForm1.Button1Click(Sender: TObject);
begin
 showmessage('1');
end;新建一个窗体TForm2继承TForm1时，即TForm2 = class(TForm1)
则Button1也一并继承下来了，但可以重写Button1事件,即
procedure TForm2.Button1Click(Sender: TObject);
begin
  inherited; 
  showmessage('2');
end;inherited位置可以随便，只是执行顺序不同吧了，看需要而用; 也可以省去，省去就不会执行父类的代码
如果想不执行父类的代码，子类又不想做什么的话，就加个注释留空代码,像下面这样
否则会执行showmessage('1')procedure TForm2.Button1Click(Sender: TObject);
begin
//
end;2.
ReleaseCapture和SetCaPture配对使用
用SetCaPture捕获鼠标事件，比如onmousedown，onmouseover等，然后用ReleaseCapture释放鼠标恢复正常
详细用法/解释不如去百度一下

Answer 3

inherited是继承，当子类函数重载父类同名函数时，用inherited可以执行父类同名函数代码，提高代码可重用性