过程指针 TList里面装了过程指针,但是不知道怎么把他取出来用。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 简单示例如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TProcedure = procedure (); TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } pMyPro:TProcedure; public { Public declarations } end;procedure APro();var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin pMyPro := apro;end;procedure APro;begin showmessage('asdfa');end;procedure TForm1.Button3Click(Sender: TObject);begin pMyPro;end;end. Delphi,Trunc函数问题 copyfrom的问题 征集对ECO III感兴趣的富翁,共同翻译ECO III资料!!!!! 控件使用问题 谁对BatchMove比较熟? 我想实现这个要求,该怎么弄呀。。。。 喜事临门,第一次送分 会打印的大侠请帮忙看看!!!!!!!!!!!!! 我想让一个窗体建立在一个单独的线程中,独立于主线程,谁帮我写这个线程类. 如何在windows me下安装windows 2000专业版? 诸位,我想问个与delphi无关的问题,是关于显示器的。 ************** 散分,进者有分!!!!***********
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TProcedure = procedure ();
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
pMyPro:TProcedure;
public
{ Public declarations }
end;
procedure APro();var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
pMyPro := apro;
end;procedure APro;
begin
showmessage('asdfa');
end;procedure TForm1.Button3Click(Sender: TObject);
begin
pMyPro;
end;end.