1:以下程式為什麼要加 inherited;是要做什麼 2:程式在什麼情況須用(DataSet: TDataSet); 程式在什麼情況須用(Sender: TObject); 3:DataSet['EMPLYID_'] 是什麼意思? ps:AA:主要是將為傳入之字串, 前後加上 ' procedure TFmG101.MqyCalcFields(DataSet: TDataSet); begin inherited; DataSet['EMPLYID_'] := SqlValue('select EMPLYNM from HR_EMPLYM where EMPLYID=' AA(DataSet['EMPLYID'])); //EMPLYID_ end;

1.inherited; 是繼承的意思 拿一個簡單的飯粒，哦是範例， 當你繼承一個表單時，在那個表單的任一事件都會出現inherited的 語法，可以看成是那個表單原本寫的程式 你可以試著File -> New Application產生一個新的專案， 然後在Form 的 show下打入showmessage('TEST'); 接下來按File -> New 選則你project(project1吧)的頁面， 選Form1下面有三個option，選inherited（目前應該只能選這個） 接下來你到Form 的 show事件下，你會看到inherited; 如果不寫任何程式，一開始就會顯示TEST。 如果註解掉inherited，則不會去執行繼承的程式 2.程式在什麼情況須用(DataSet: TDataSet); 程式在什麼情況須用(Sender: TObject); 我想是要看事件的不同，會有傳入不同的參數，Sender主要是用來說明 什麼物件來觸發此事件。所以是看事件的不同，會有不同的參數傳入。 我想DataSet大概是指觸發此事件是由哪個DataSet來做 就好像TQuery的AfterScroll(DataSet: TDataSet); DataSet是指觸發AfterScroll事件的DataSet是哪一個。 而我如果要用程式觸發Query1的afterScroll時，我會下 Query1.afterscroll(Query1); 3.DataSet['EMPLYID_'] 是什麼意思? 指在DATASet下欄位叫做EMPLYID_，此語法要加到欄位編輯器下才能使用， 在此應該是指觸發此事件的DataSet下的欄位EMPLYID_的值設定成 後面那一大串東東所傳回來的值。 至於後面那一大串東東，我在Help找不到SqlValue的說明， 可能是自己宣告的函式吧，所以要看那個函式是在”沖馬蓋” ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

引言: 1.inherited; 是繼承的意思 拿一個簡單的飯粒，哦是範例， 當你繼承一個表單時，在那個表單的任一事件都會出現inherited的 語法，可以看成是那個表單原本寫的程式 你可以試著File -> New Application產生一個新的專案， 然後在Form 的 show下打入showmessage('TEST'); 接下來按File -> New 選則你project(project1吧)的頁面， 選Form1下面有三個option，選inherited（目前應該只能選這個） 接下來你到Form 的 show事件下，你會看到inherited; 如果不寫任何程式，一開始就會顯示TEST。 如果註解掉inherited，則不會去執行繼承的程式 2.程式在什麼情況須用(DataSet: TDataSet); 程式在什麼情況須用(Sender: TObject); 我想是要看事件的不同，會有傳入不同的參數，Sender主要是用來說明 什麼物件來觸發此事件。所以是看事件的不同，會有不同的參數傳入。 我想DataSet大概是指觸發此事件是由哪個DataSet來做 就好像TQuery的AfterScroll(DataSet: TDataSet); DataSet是指觸發AfterScroll事件的DataSet是哪一個。 而我如果要用程式觸發Query1的afterScroll時，我會下 Query1.afterscroll(Query1); 3.DataSet['EMPLYID_'] 是什麼意思? 指在DATASet下欄位叫做EMPLYID_，此語法要加到欄位編輯器下才能使用， 在此應該是指觸發此事件的DataSet下的欄位EMPLYID_的值設定成 後面那一大串東東所傳回來的值。 至於後面那一大串東東，我在Help找不到SqlValue的說明， 可能是自己宣告的函式吧，所以要看那個函式是在”沖馬蓋” ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------

這一段如何寫(明細)然後在Form 的 show下打入showmessage('TEST');

引言: 1.inherited; 是繼承的意思 拿一個簡單的飯粒，哦是範例， 當你繼承一個表單時，在那個表單的任一事件都會出現inherited的 語法，可以看成是那個表單原本寫的程式 你可以試著File -> New Application產生一個新的專案， 然後在Form 的 show下打入showmessage('TEST'); 接下來按File -> New 選則你project(project1吧)的頁面， 選Form1下面有三個option，選inherited（目前應該只能選這個） 接下來你到Form 的 show事件下，你會看到inherited; 如果不寫任何程式，一開始就會顯示TEST。 如果註解掉inherited，則不會去執行繼承的程式 2.程式在什麼情況須用(DataSet: TDataSet); 程式在什麼情況須用(Sender: TObject); 我想是要看事件的不同，會有傳入不同的參數，Sender主要是用來說明 什麼物件來觸發此事件。所以是看事件的不同，會有不同的參數傳入。 我想DataSet大概是指觸發此事件是由哪個DataSet來做 就好像TQuery的AfterScroll(DataSet: TDataSet); DataSet是指觸發AfterScroll事件的DataSet是哪一個。 而我如果要用程式觸發Query1的afterScroll時，我會下 Query1.afterscroll(Query1); 3.DataSet['EMPLYID_'] 是什麼意思? 指在DATASet下欄位叫做EMPLYID_，此語法要加到欄位編輯器下才能使用， 在此應該是指觸發此事件的DataSet下的欄位EMPLYID_的值設定成 後面那一大串東東所傳回來的值。 至於後面那一大串東東，我在Help找不到SqlValue的說明， 可能是自己宣告的函式吧，所以要看那個函式是在”沖馬蓋” ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------

這一段如何寫(明細)---->在Form 的 show下打入showmessage('TEST');

可否請教一下... 在inherited的右側,是否一定要寫所繼承的程序呢? 因為我看過有的有寫,有的沒有寫.... 不知道是否有何分別...?? 我的直覺是,既然是同樣的程序名稱,且已加上了override....應該是不用寫吧! 對嗎? 另外再請教一個問題: 這個inherited...可不可以拿來繼承不同的程序呢? 如:在SetAutoSize中,先繼承父親的SetAutoSize...然後在此程序中再寫: inherited SetAlign; 行得通嗎? 是否也要宣告SetAlign...;override; 呢? 還是說先宣告後,直接在SetAutoSize程序中寫SetAlign去執行就可以了呢? thanks!! 發表人 - SKYSTAR 於 2003/03/11 12:10:37 發表人 - SKYSTAR 於 2003/03/11 12:12:00

引言: 可否請教一下... 在inherited的右側,是否一定要寫所繼承的程序呢? This is optional provided the compiler knows how to find the inherited method. 因為我看過有的有寫,有的沒有寫.... 不知道是否有何分別...?? You must incude the name in same cases, e.g. you change the parameter, i.e. Create -> Create(AOwner: TObject); 我的直覺是,既然是同樣的程序名稱,且已加上了override....應該是不用寫吧! 對嗎? 另外再請教一個問題: 這個inherited...可不可以拿來繼承不同的程序呢? 如:在SetAutoSize中,先繼承父親的SetAutoSize...然後在此程序中再寫: inherited SetAlign; 行得通嗎? No problem. You can always call an inherited method. 是否也要宣告SetAlign...;override; 呢? No need. 還是說先宣告後,直接在SetAutoSize程序中寫SetAlign去執行就可以了呢? Yes, if you do not override SetAlign or you want to involve the inherited SetAlign. thanks!! 發表人 - SKYSTAR 於 2003/03/11 12:10:37 發表人 - SKYSTAR 於 2003/03/11 12:12:00

To vivi666666: 在Form按下F11選Events Scroll bar拉到最下面會看到OnShow 接下來在右邊按兩下，會回到Code的畫面出現 procedure TForm1.FormShow(Sender: TObject); begin SHOWMESSAGE('TEST'); //打入左邊字 end; 接下來產生Form2(用我說的那些步驟) 同樣在onShow的事件中按兩下 procedure TForm2.FormShow(Sender: TObject); begin inherited; //這一樣就是繼承父元件的程式 //所包含SHOWMESSAGE('TEST');的程式 //你可以試試開Form2，不用寫程式就會有顯示TEST的訊息 end; ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

引言: To vivi666666: 在Form按下F11選Events Scroll bar拉到最下面會看到OnShow 接下來在右邊按兩下，會回到Code的畫面出現 procedure TForm1.FormShow(Sender: TObject); begin SHOWMESSAGE('TEST'); //打入左邊字 end; 接下來產生Form2(用我說的那些步驟) 同樣在onShow的事件中按兩下 procedure TForm2.FormShow(Sender: TObject); begin inherited; //這一樣就是繼承父元件的程式 //所包含SHOWMESSAGE('TEST');的程式 //你可以試試開Form2，不用寫程式就會有顯示TEST的訊息 end; ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------

inherited; //這一樣就是繼承父元件的程式 是指繼承父元件的程式 procedure TForm1.FormShow(Sender: TObject); 還是所有的元件?

我的步驟主要是讓 Form2 繼承至 Form1 而你在Form2的每個事件下都會看到有inherited(除了自己宣告的事件); 但不代表有inherited就表示Form1的每個事件都會有寫程式， 如果inherited是在 procedure TForm2.FormShow(Sender: TObject); begin inherited; end; 表示繼承父元件FormShow的程式。 如果把inherited註解起來，則不會去報行父元件FormShow的程式 用一個簡單的測試方法， 你在Form1 的OnActive和OnShow事件中個打下程式 OnActive 下打入 showmessage('Active'); OnShow 下打入 showmessage('show'); 利用Form2繼承Form1 在Form2的onshow中註解掉inherited 即 //inherited 後，你去打開Form2， 你只會看到Active被顯示，show不會被顯示， 所以inherited指的是繼承父元件"那個事件"的程式。 ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------