type
TMainForm=class(TForm)
private
procedure Text11(sender:TObject);
end;
var
MainForm:TmainForm;
produre MainForm.Text11(Sender:TObject);
begin
showmessage('hello');
end;
produre TiniThread.Execute;
begin
OnTerminate:=MainForm.Text11;
end;
上面这段程序省略了好多,不过应该都能看懂。
问题是:produre MainForm.Text11(Sender:TObject);这句中为何一定要写括号中的变量,如里我不写编译就通不过?
还有为何delphi 中申明有过程后面要加(),而有的不要?
TMainForm=class(TForm)
private
procedure Text11(sender:TObject);
end;
var
MainForm:TmainForm;
produre MainForm.Text11(Sender:TObject);
begin
showmessage('hello');
end;
produre TiniThread.Execute;
begin
OnTerminate:=MainForm.Text11;
end;
上面这段程序省略了好多,不过应该都能看懂。
问题是:produre MainForm.Text11(Sender:TObject);这句中为何一定要写括号中的变量,如里我不写编译就通不过?
还有为何delphi 中申明有过程后面要加(),而有的不要?
解决方案 »
- 新手提問(POS取數後SQL查詢)
- 哪里有delphi2005 下载啊?borland 网站上的下载后安装不了
- 难题:自己做的下拉框控件TPopupEdit,下拉框获得焦点时其他控件无法再获得焦点?
- 继续抢分!
- 如何将Paradox表中的数据转到SQL Server或Access中?
- 为什么Image控件不能用Picture.LoadFromFile('d:/xxx.jpg')来装载jpg图片???
- 客户不用安装IIS /PWS 的环境下,打开http://localhost:5050
- 问一个比较菜的问题:delphi这样实现团队合作开发呢?
- 我也豁出去了,花50分提问
- 很簡單的問題,但我不會,請指教.
- 如何提高在dbgrid中数据输入的效率?
- 谁能提供精美象棋程序(带网络功能)给我 谢谢了:)(要具体的代码)我有500分
OnTerminate: procedure (sender:TObject);
将Text11的函数指针给OnTerminate事件。
当程序触发OnTerminate事件时就可以自动执行Text11函数的代码了。
在函数或者过程体中不传入sender对象的,就没必要这样做。