关于回调 学习 我想做个DLL里面有个TTimer空间 有OnTimer 事件程序调用DLL并且响应DLLOnTimer 事件有哪位大哥给个例子,谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 dll代码如下:library DllTimer;uses SysUtils, Classes, ExtCtrls;{$R *.res}var aTimer: TTimer;procedure SetDllOnTimer(DllOnTimer: TNotifyEvent);begin aTimer.OnTimer := DllOnTimer; aTimer.Enabled := True;end;exports SetDllOnTimer;begin aTimer := TTimer.Create(nil); aTimer.Interval := 5000; aTimer.Enabled := False;end.主窗口代码如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } procedure MyOnTimer(Sender: TObject); public { Public declarations } end;var Form1: TForm1; procedure SetDllOnTimer(DllOnTimer: TNotifyEvent); external 'DllTimer.dll';implementation{$R *.dfm}procedure TForm1.MyOnTimer(Sender: TObject);begin Memo1.Lines.Add('123');end;procedure TForm1.Button1Click(Sender: TObject);begin SetDllOnTimer(MyOnTimer);end;end. 关于关闭程序后确认是否关闭 messagebox 怎么才能防止被其他窗口关闭啊?郁闷的问题 如何用DELPHI语句打开 SQL SERVER的服务器管理器 并开启服务 关于数据库显示问题[在线等] 什么报表能否打印旋转的字,fastreport能吗?怎样设置? 谁有Power-Designer 9 Studio的注册码??给一个啊,谢谢! 三层结构,客户端多线程 怎么创建快捷方式和在win菜单里添加菜单项???? MEMO编辑 请教:怎样知道字符串是英文还是汉字? 急,关于回调问题,见内容,谢谢 求高手把C++ 代码 转成delphi 谢谢
library DllTimer;uses
SysUtils,
Classes,
ExtCtrls;{$R *.res}var
aTimer: TTimer;procedure SetDllOnTimer(DllOnTimer: TNotifyEvent);
begin
aTimer.OnTimer := DllOnTimer;
aTimer.Enabled := True;
end;exports
SetDllOnTimer;begin
aTimer := TTimer.Create(nil);
aTimer.Interval := 5000;
aTimer.Enabled := False;
end.
主窗口代码如下:unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure MyOnTimer(Sender: TObject);
public
{ Public declarations }
end;var
Form1: TForm1; procedure SetDllOnTimer(DllOnTimer: TNotifyEvent); external 'DllTimer.dll';implementation{$R *.dfm}procedure TForm1.MyOnTimer(Sender: TObject);
begin
Memo1.Lines.Add('123');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
SetDllOnTimer(MyOnTimer);
end;end.