我把我的对话框应用程序放在dll中显示以后不能实现对话框中的按钮和其他的功能(就30分了) 那位兄弟给我个例子看看我的e-mail:[email protected]非常感谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; procedure sayhello; external'Project1.dll' name 'sayhello';implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin sayhello;end;end.dll代码library Project1;uses SysUtils, Classes, windows, forms;{$R *.res}procedure sayhello;begin application.MessageBox(pchar('你好'),pchar('提示'),mb_yesno+mb_iconinformation)end;exports sayhello;end. Form参数传递 delphi制作联机帮助的问题 高手请留步!!!急!!!求助!HOOK技术可以记录鼠标和键盘动作,但是怎么将记录的动作保存为文件,以便以后重复调用,望高手赐教!!! 嘘,不要告诉别人。 ODBC连接foxpro表在xp下出错,说找不到驱动,谁知道啊?急 GIFImage控件播放GIF动画时有闪烁现象,请问怎么解决? 关于在Datagride中增加记录 在线等待,菜鸟问题。 关于Idhttp的问题 急需决绝一个巨弱的问题,请帮忙 使用BDE需要什么文件在系统文件夹里? 有谁做过电视的互动游戏
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations } public
{ Public declarations }
end;var
Form1: TForm1;
procedure sayhello; external'Project1.dll' name 'sayhello';implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
sayhello;
end;end.
dll代码
library Project1;
uses
SysUtils,
Classes,
windows,
forms;
{$R *.res}
procedure sayhello;
begin
application.MessageBox(pchar('你好'),pchar('提示'),mb_yesno+mb_iconinformation)
end;exports
sayhello;
end.