全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:702
推到 Plurk!
推到 Facebook!

Inherited 的warning??

答題得分者是:william
BorlandUser
中階會員


發表:148
回覆:217
積分:73
註冊:2004-02-19

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-10-14 15:34:34 IP:203.185.xxx.xxx 未訂閱
[Warning] FrmCUstomData.pas(17): Mehtod 'Init' hides virtual method of base type TFCustomForm Unit FrmCustom; Interface Uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; Type TFCustomForm = Class(TForm) Private { Private declarations } Protected { Protected declarations } Procedure Init(); Virtual; Public { Public declarations } Published { Published declarations } End; Var FCustomForm: TFCustomForm; Implementation {$R *.dfm} Procedure TFCustomForm.Init(); Begin // End; End. Unit FrmCustomData; Interface Uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; Type TFCustomDataForm = Class(TFCustomForm) Private { Private declarations } Protected { Protected declarations } Procedure Init(); Virtual; Public { Public declarations } Published { Published declarations } End; Var FCustomDataForm: TFCustomDataForm; Implementation {$R *.dfm} Procedure TFCustomDataForm.Init(); Begin ShowMessage(''); End; 這是什麼問題呢? End.
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-10-14 15:46:52 IP:147.8.xxx.xxx 未訂閱
  TFCustomDataForm = Class(TFCustomForm)
  Private
    { Private declarations }
  Protected
    { Protected declarations }
    Procedure Init(); override;
  Public
    { Public declarations }
  Published
    { Published declarations }
  End;
http://pywong.hk.st http://www.lazybones.ca
BorlandUser
中階會員


發表:148
回覆:217
積分:73
註冊:2004-02-19

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-10-14 16:06:10 IP:203.185.xxx.xxx 未訂閱
不好意思,再多口一問 可以override和virtual連用嗎? 因為我想那個method如果那張form再有inherited就可以continuous...
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-10-14 16:13:20 IP:147.8.xxx.xxx 未訂閱
Only virutal/dynamic method can be overridden...    btw, implementation part of your TFCustomDataForm could be:    
Procedure TFCustomDataForm.Init();
Begin
    inherited;
    ShowMessage('');
End;
http://pywong.hk.st http://www.lazybones.ca
BorlandUser
中階會員


發表:148
回覆:217
積分:73
註冊:2004-02-19

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-10-14 16:39:23 IP:203.185.xxx.xxx 未訂閱
如果再有一個form,如TCustomerForm,我想這個TCustomerForm的Init再override,那我應在delcare寫override嗎?但在TCustomDataForm的init也是寫override嗎?
系統時間:2024-05-17 10:57:08
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!