將String轉為TIWAppFormClass |
|
答題得分者是：Mickey
|
|
apple12
一般會員   發表：28 回覆：23 積分：10 註冊：2003-05-10 發送簡訊給我 |
本人正用IntraWeb開發新的程式，但我需要將部份Form Name存放在array中。當每次Call不同的Form時，就從array中抽取相關的Form Name，然後使用Move() function去開啟該 FORM，但發生”Error : Incompatible type” 問題。！請問如何可以將String轉為TIWAppFormClass？或有甚麼其他方法？懇請賜教！ Var
slidemenu : Array [0..50, 0..50] of String;
...
procedure TfrmMaster.LeftOutlookBarItemClick(ASender: TObject;
Panel: TIWOutlookPanel; Item: TIWOutlookItem);
var temp : String;
begin
temp := 'T' slidemenu[Panel.Index, item.Index];
Move(temp);
end; procedure TfrmMaster.Move(AFormClass: TIWAppFormClass);
begin
TIWAppForm(WebApplication.ActiveForm).Release;
AFormClass.Create(WebApplication).Show;
end;
|
|
Mickey
版主  發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
1. 運用 Classes 的 RegisterClass, 在該 Unit RegisterClass 如:
initialization
RegisterClass(TFM0101); 2. 運用 Classes 的 GetClass 取得 TIWAppFormClass, 在任何 Unit 如:
TIWAppFormClass(FindClass('TFM0101')).Create(WebApplication).Show; 發表人 - Mickey 於 2005/07/21 10:45:59
|
|
apple12
一般會員 發表：28 回覆：23 積分：10 註冊：2003-05-10 發送簡訊給我 |
發表時間：2005-07-19 14:07:51
IP:219.77.xxx.xxx 未訂閱
系統時間：2024-05-17 13:29:34
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |