我自己定义了一个过程,并通过一个按钮的ONCLICK事件调用这个过程,可是程序总是执行不过去呀。各位帮我看一下好吗?我的程序是这样写的。
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 }
procedure wwww(sender: Tobject);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
procedure wwww(sender: Tobject);
begin
showmessage('eeee');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//form1.wwww;
button1.onclickk:=Tform1.wwww(sender);
end;end.
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 }
procedure wwww(sender: Tobject);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
procedure wwww(sender: Tobject);
begin
showmessage('eeee');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//form1.wwww;
button1.onclickk:=Tform1.wwww(sender);
end;end.
解决方案 »
- 我把窗体的类名存在数据库中,如何创建它?
- 如何打开这个Access(根据经验判断是Access文件)文件???
- 简单query问题,高分请教
- 高分求救,关于统计问题(在线)
- 怎么让DBLookupComboBox 默认显示 "请选择.."这样呢?
- 关于线程,高手帮忙,我把代码贴出来了!!
- 在delphi中如何产生-100~~~100的随机数
- 大哥们啊!我是要和所有的文件建立关联,不管什么文件的扩展名,双击自动打开我的程序。
- 今日问题一
- 高手帮忙!急!急!急!
- 数据库数据输出到Excel速度太慢,帮顶有分
- 客户的安装上程序,数据库引擎的版本太低,Borland Database Engine (error $3E06)
begin
//form1.wwww;
//button1.onclickk:=Tform1.wwww(sender);
wwww(sender); //如果只想通过单击按钮调用过程 那么直接调用就OK了
end;
begin
showmessage('eeee');
end;
procedure wwww(sender: Tobject);
应如下
procedure TForm1.wwww(sender: Tobject);请 jinjazz(近身剪(N-P攻略)) 到这里 http://community.csdn.net/Expert/topic/3812/3812071.xml?temp=.275799
谢谢!!