我有這樣一段代碼﹐不知道能不能按要求改改﹐高手請進﹖ |
|
答題得分者是：william
|
|
popmailzjw
一般會員   發表：7 回覆：18 積分：5 註冊：2002-05-11 發送簡訊給我 |
原代碼如下﹕
unit uAllForm; interface uses windows, forms, classes, sysutils, dialogs; procedure ShowForm(FFormName: string);
function CreateForm(FFormName: string): TCustomForm; implementation uses uUserVindicate, uPublicFun, uMain, Uprovider, uAbout, uLogin; function CreateForm(FFormName: string): TCustomForm;
var
AFormClass: TFormClass;
begin
result := nil;
try
if FFormName = '' then raise Exception.Create('Need Class Name!');
AFormClass := TFormClass(FindClass('T' FFormName));
result := AFormClass.Create(application);
except
on E: Exception do
Msg1(E.Message)
else raise;
end; end; procedure ShowForm(FFormName: string);
var
AFormClass: TFormClass;
begin
try
if FFormName = '' then raise Exception.Create('Need Class Name!');
AFormClass := TFormClass(FindClass('T' FFormName));
with AFormClass.Create(application) do
begin
Lockwindowupdate(0);
showmodal;
end;
except
on E: Exception do
Msg1(E.Message)
else raise;
end;
end;
initialization
RegisterClass(tuserVindicateFrm);
RegisterClass(TproviderFrm);
RegisterClass(TfrmAbout);
RegisterClass(tLoginFrm);
RegisterClass(TmainFrm);
end.
不知道能不能改成這樣的 unit uAllUserOperation; interface uses windows, forms, classes, sysutils, dialogs; procedure ShowForm(FFormName: string);
function CreateForm(FFormName: string): TCustomForm; implementation uses uUserVindicate, uPublicFun, uMain, Uprovider, uAbout, uLogin; function CreateForm(FFormName: string): TCustomForm;
var
AFormClass: TFormClass;
begin
result := nil;
try
if FFormName = '' then raise Exception.Create('Need Class Name!');
AFormClass := TFormClass(FindClass('T' FFormName));
result := AFormClass.Create(application);
except
on E: Exception do
Msg1(E.Message)
else raise;
end; end; procedure ShowForm(FFormName: string);
var
AFormClass: TFormClass;
begin
try
if FFormName = '' then raise Exception.Create('Need Class Name!');
AFormClass := TFormClass(FindClass('T' FFormName));
with AFormClass.Create(application) do
begin
Lockwindowupdate(0);
showmodal;
end;
except
on E: Exception do
Msg1(E.Message)
else raise;
end;
end; //initialization
// RegisterClass(tuserVindicateFrm);
// RegisterClass(TproviderFrm);
// RegisterClass(TfrmAbout);
// RegisterClass(tLoginFrm);
// RegisterClass(TmainFrm);
end. 就是去掉所有的RegisterClass,這樣程序做起來就方便好多了﹐行嗎﹖
在線等待@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
|
|
william
版主   發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
發表時間：2004-05-04 08:36:07
IP:218.18.xxx.xxx 未訂閱
系統時間：2024-06-27 3:03:18
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |