小第有一問題如下 怎樣可以在 多個menu項目內使用同一個 procedure 來建立和menuitem 相同名稱之表單 謝謝

類似的問題 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=75242 參考看看.

Mickey, 你這篇文章的第2點不明白, 小第對 class 之運作完全沒有認識, 現附上程序, 執行時有錯誤, 不知點解. unit Unit1; type TForm1 = class(TForm) MainMenu1: TMainMenu; forma: TMenuItem; formb: TMenuItem; procedure formaClick(Sender: TObject); var Form1: TForm1; implementation uses unit2,unit3; procedure TForm1.formaClick(Sender: TObject); var sform : tform; begin sform := tform(getclass('t' tmenuitem(sender).name)).create(self); sform.ShowModal; sform.Free; end; initialization registerclass(Tforma); registerclass(Tformb); end. findclass 和 getclass 有什麼不同? 謝閱 Vincent

initialization registerclass(Tforma); registerclass(Tformb); 這兩個類并不存在，初始化時會出錯吧？ --------------------- 於Delphi K.Top 博采眾家之長, 奉獻綿薄之力 --------------------

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

h@visli tforma & tformb 分別在 unit2 及 unit3 內, debug 時在formaClick 內也可用 findclass 找到, 錯誤出現在 sform := tform(getclass('t' tmenuitem(sender).name)).create(self); 謝閱

引言: findclass 和 getclass 有什麼不同?

大同小異, 但 findclass 當找不到 class 時, 會 raise Exception. ------------------------------------------------------------- 執行錯誤為何 ? RegisterClass (登錄) ...似乎是個別加在 unit2 , unit3 比較合理. 我手邊沒有 Delphi, 下週一再試試囉.