如何更改,编译Delphi源码! 感谢帮解决问题的lichengbin ( 积分: 200 )

风

风卷残月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #1

比如
destructor TCustomForm.Destroy;
begin

MessageBox(0,'TCustomForm.Destroy','Test Destroy',MB_OK);

if not (csDestroying in ComponentState) then GlobalNameSpace.BeginWrite;
try
if OldCreateOrder then DoDestroy;
MergeMenu(False);
if HandleAllocated then DestroyWindowHandle;
Screen.RemoveForm(Self);
FCanvas.Free;
FIcon.Free;
FreeAndNil(FActionLists);
inherited Destroy;
finally
GlobalNameSpace.EndWrite;
end;
end;

让他实现功能, 帮解决问题的来拿分哦

 

风

风卷残月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #2

比如
destructor TCustomForm.Destroy;
begin

MessageBox(0,'TCustomForm.Destroy','Test Destroy',MB_OK);

if not (csDestroying in ComponentState) then GlobalNameSpace.BeginWrite;
try
if OldCreateOrder then DoDestroy;
MergeMenu(False);
if HandleAllocated then DestroyWindowHandle;
Screen.RemoveForm(Self);
FCanvas.Free;
FIcon.Free;
FreeAndNil(FActionLists);
inherited Destroy;
finally
GlobalNameSpace.EndWrite;
end;
end;

让他实现功能, 帮解决问题的来拿分哦

 

L

lichengbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #3

哈哈，不用这么客气吧

 

风

风卷残月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #4

帮忙解决那么多问题,这点分没什么的

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #5

我也要点，紫风哥

 

A

asanhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #6

不错，能够学习，还能得点分，谢谢了

 

凤

凤冠坡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #7

设置 Debug 状态(主菜单 Tools --> Debug....)，编译原程序就可以得到 .DCU
复制 .DCU 到 Lib 目录//解决

 

E

e-

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #8

将Forms.pas复制到你的程序所在目录

 

J

jieking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #9

你可以写入一个.PAS文件里用函数调用这样可以吗?

 

风

风卷残月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #10

多人接受答案了。