請問要如何繼承TShape設計一個Unit |
答題得分者是:sryang
|
frappe
中階會員 發表:88 回覆:114 積分:95 註冊:2008-10-21 發送簡訊給我 |
我最近剛學會一點OOP,我想寫一個unit繼承TShape,但是我在主Form動態Create我的Unit會出錯,不知道是不是我的觀念有問題
[code delphi] unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TSnakeZ = class(TShape) constructor Create; destructor Destroy; reintroduce; end; implementation constructor TSnakeZ.Create; begin end; destructor TSnakeZ.Destroy; begin end; end. [/code] |
herbert2
尊榮會員 發表:58 回覆:640 積分:894 註冊:2004-04-16 發送簡訊給我 |
這是 C Builder 的寫法, 供您參考
http://delphi.ktop.com.tw/board.php?cid=168&fid=913&tid=95610 Delphi 寫法稍異, 您可參考其他人開發的 Component 的 .pas 參考. |
sryang
尊榮會員 發表:39 回覆:762 積分:920 註冊:2002-06-27 發送簡訊給我 |
[code delphi]
unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TSnakeZ = class(TShape) constructor Create(AOwner: TComponent); override; destructor Destroy; override; end; implementation constructor TSnakeZ.Create(AOwner: TComponent); begin inherited; // 在此加入額外的初始化程式碼 end; destructor TSnakeZ.Destroy; begin // 在此加入額外的資源釋放程式碼 inherited; end; end. [/code] 要繼承一個類別之前,請先看看要繼承的類別定義 constructor 跟 destructor 尤其重要
------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/
編輯記錄
sryang 重新編輯於 2008-11-18 13:58:10, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |