如何将窗体做成dll delphi的帮助里就有一个例子! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我的email addr [email protected] 这个例子够了吧?PAS文件:unit dll;interfaceusesWinTypes, Classes, Controls, StdCtrls,WinProcs,Graphics,Forms,Buttons,SysUtils;type Tpasswordform = class(TForm) Edit1: TEdit; Button1: TButton; private { Private declarations } public { Public declarations }end;function GetPassword(Password:string):Boolean;export;implementationuses Dialogs;{$R *.DFM}function GetPassword(Password:string):Boolean;varPasswordForm:TPasswordForm;beginResult:=False;PasswordForm:=TPasswordForm.Create(Application);trywith PasswordForm doif ShowModal=mrOK thenif UpperCase(Edit1.Text)<> UpperCase(Password)thenMessageDlg('InvalidPassword',mtWarning,[mbOK],0)elseResult:=True;finallyPasswordForm.Free;end;end;end.DPR文件:library dllform;uses SysUtils, Classes, dll in 'dll.pas' {passwordform}; exports getpassword;{$R *.RES}beginend. Undeclared identifier: 'TIdFTPTransferType' 求助 关于动态坐标问题,上学时数学就不好,求助。 如何拖动图片到另一个控件上? 如何解决问题呀 密码窗口不做主窗口但又要先于主窗口弹出来,要怎么写? 如何作一个功能强大的任务管理器? 老公的忏悔!!!!!顶破你的头 判断一个adoquery1中select出来的数据集是否为空?用那种方法最佳? 如何将一个表的查询结果值给一个变量,如某一属性的最大值. 如何做一个象OICQ一样的简单版本? 错误"System has been illegally re-entered"是什么意思? 关于数据库
PAS文件:
unit dll;interfaceuses
WinTypes, Classes, Controls, StdCtrls,WinProcs,Graphics,Forms,Buttons,SysUtils;type
Tpasswordform = class(TForm)
Edit1: TEdit;
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
function GetPassword(Password:string):Boolean;export;
implementation
uses Dialogs;
{$R *.DFM}
function GetPassword(Password:string):Boolean;
var
PasswordForm:TPasswordForm;
begin
Result:=False;
PasswordForm:=TPasswordForm.Create(Application);
try
with PasswordForm do
if ShowModal=mrOK then
if UpperCase(Edit1.Text)<> UpperCase(Password)then
MessageDlg('InvalidPassword',mtWarning,[mbOK],0)
else
Result:=True;
finally
PasswordForm.Free;
end;
end;
end.DPR文件:
library dllform;uses
SysUtils,
Classes,
dll in 'dll.pas' {passwordform};
exports getpassword;
{$R *.RES}begin
end.