函数不能在Form中定义,必须自己定义。
function SetPassWord(Pword : pchar):boolean;
begin
with Tsetpasswordform.create(nil) do
try
ShowModal;
finally
Free
end;
end;
function SetPassWord(Pword : pchar):boolean;
begin
with Tsetpasswordform.create(nil) do
try
ShowModal;
finally
Free
end;
end;
解决方案 »
- 怎么将一个数字转换成这样的类型
- 送分分分分分分分分给ini的小问题
- 请教高手:如何在iis中用程序(delphi)创建web站点!!!
- Dll文件导入的问题
- Tchart的一个小问题,关于Chart.AddSeries(Series)和Series的AddXY(x,value,lable);
- 求购进销存软件,价格再议!
- 请问是否可用directx编游戏程序,象vc的dircetx sdk
- 求网络版国际象棋的实现方法,请求帮助,朋友急要!分可再加,最好有源码
- 超值送分
- DELPHI中可否直接 CreateObject ("obj.aaa") ?
- 求救!!请问大侠们如何实现窗体最小化时,窗体图标隐藏在任务栏中?
- 有关“Invalid Blob Length”的问题,请各位大哥指教
function GetPassword(Password:Pchar):boolean;stdcall; Library passfrm;
uses
getpass in 'getpass.pas' {GetPasswordform},
setpass in 'setpass.pas' {SetPassWordForm};
exports
GetPassWord,SetPassWord;
begin
end.