`

inherited Create(AOwner); 和直接写inherited有区别吗

阅读更多

 摘自:http://zhidao.baidu.com/question/192207818.html

 

constructor a.Create(AOwner: TComponent);
begin
  inherited Create(AOwner); 和直接写inherited有区别吗 
 end;

destructor a.Destroy ;
begin
  inherited Destroy;
end;

问题补充:

什么是同名方法?

 

 

 

 

inherited Create(AOwner); 和直接写inherited有区别吗 

有区别,inherited Create是指定调用父类的Create方法,当然你也可以inherited Destory等等,
如果直接写inherited则默认以本方法名在父类中调用
分享到:
评论

相关推荐

    Delphi自定义控件开发.pdf

    begin inherited Create(AOwner); Cursor:=crHandPoint; Font.Style:= [fsUnderline]; end; 代码解释: * (`inherited Create(AOwner);`:执行父类的构造函数。在制作控件时,如果覆盖了父类的构造函数,那么在新...

    选择一个选项后可以返回一个值的ComboBox

    begin inherited Create(AOwner); FValue := NullStr; FValues := TStringList.Create; style := csDropDownList;end;destructor TValComboBox.Destroy;begin DisposeStr (FValue); FValues.Free; inherited Destroy...

    Delphi自定义控件开发.docx

    inherited Create(AOwner); Cursor := crHandPoint; Font.Style := [fsUnderline]; end; procedure TURLLabel.SetUrl(const Value: string); begin FUrl := Value; end; procedure TURLLabel.Click; begin if...

    Delphi自定义控件开发

    inherited Create(AOwner); // 调用父类构造函数 Cursor := crHandPoint; // 设置鼠标悬停时的光标形状 Font.Style := [fsUnderline]; // 设置字体样式,添加下划线 end; ``` - **解释**: - `inherited Create...

    DELPHI多线程使用例子

    inherited Create(AOwner, ASuspended); // 可以在此设置其他线程属性 end; procedure TMyThread.Execute; begin // 这里放置线程执行的任务 // ... end; ``` 在多线程编程中,同步机制非常重要,以防止数据...

    Delphi控件开发浅入深出

    begin inherited Create(AOwner); Cursor:=crHandPoint; Font.Style:= [fsUnderline]; end; (3)增加 Url 属性,用于设置超链接的 URL。 属性是访问控件字段的接口。通过属性,控件使用者可以间接读或者写控件的...

    DELPHI控件开发深入简出.pdf

    构造函数`Create(AOwner)`中,调用`inherited Create(AOwner)`确保父类的初始化完成,这是避免错误的关键步骤。然后设置控件的光标样式为手型`Cursor:=crHandPoint`,字体样式为下划线`Font.Style:= [fsUnderline]`...

    delphi 动态链接库封装窗体与调用

    inherited Create(AOwner); // 窗体初始化... end; function CreateForm: HWND; stdcall; var FormInstance: TForm1; begin Result := 0; try FormInstance := TForm1.Create(nil); Result := FormInstance....

    TransListView,ListView透明

    inherited Create(AOwner); FBgPic := nil; BorderStyle := bsNone; BorderWidth := 0; Enabled := True ; ShowHint := True; ViewStyle := vsIcon ; IconOptions.Arrangement := iaLeft ; IconOptions....

    intraweb中弹出窗口源码

    inherited Create(AOwner); // 设置窗体属性,例如大小、位置等 end; ``` 2. 在主 IWForm 上放置一个按钮,并为其编写点击事件处理代码,该代码将创建并显示弹出窗口: ```delphi procedure TIW MainForm.Button1...

    Delphi自定义控件开发.doc

    调用`inherited Create(AOwner)`确保父类的初始化过程得到正确执行,避免运行时错误。 接下来,为了使用户能够在设计时通过Object Inspector设置超链接的URL,我们需要添加一个Url属性。在Private区域声明一个字符...

    Delphi获取Form数据

    inherited Create(AOwner); FData := Data; end; ``` 另一种是通过属性: ```delphi type TSecondForm = class(TForm) private FData: string; property Data: string read FData write FData; end; // 在...

    控件开发基础.rar

     inherited Create(AOwner);  //必须首先调用祖先类的构造  FStyle3D := Normal;  FXOffSet := 5;  FYOffSet := -5;  FHoverColor := clRed;  end;  最后,还必须为这个控件加上图标。我们...

    打印二维码

    constructor TfrxBarcode2DView.Create(AOwner: TComponent); begin inherited; end; class function TfrxBarcode2DView.GetDescription: String; begin Result := '2D 条形码对象'; end; procedure TfrxBarcode...

    圆形窗体的Delphi实现代码..rar

    inherited Create(AOwner); BorderStyle := bsNone; Caption := ''; FormStyle := fsStayOnTop; // 可选:保持窗体始终在最上层 end; procedure TCircularForm.OnPaint(Sender: TObject); var R: TRect; ...

    delphi vcl线程同步synchronize

    inherited Create(AOwner, True); // 创建并启动线程 end; procedure TMyWorkerThread.Execute; begin // 工作线程的代码 Synchronize(UpdateLabel); end; procedure TMyWorkerThread.UpdateLabel(const Text: ...

    在Form和Panel中一直显示hint

    constructor TCustomForm.Create(AOwner: TComponent); begin inherited; FHintShown := False; end; procedure TCustomForm.WMShowHint(var Message: TWMShowHint); begin if not FHintShown then begin ...

    解决cxGrid在ActiveX中的Catastrophic failed问题

    - 在`TActiveFormX`类的构造函数`constructor TActiveFormX.Create(AOwner: TComponent);`中,调用了`dxInitializeGDIPlus;`来初始化GDI+资源。这样做的目的是确保在ActiveX控件加载和使用cxGrid之前,GDI+环境已经...

    Delphi在DBGrid中插入下拉组合框

    inherited Create(AOwner); for I := 0 to Columns.Count - 1 do if (Columns[I].Field <> nil) and (Columns[I].Field.FieldName = 'YourComboBoxField') then begin // 假设'YourComboBoxField'是你想要...

Global site tag (gtag.js) - Google Analytics