一个基础问题 ( 积分: 30 )

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
Edit1: TEdit;
CheckBox1: TCheckBox;
RadioButton1: TRadioButton;
[red]procedure onclick(Sender:TObject);[/red]
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.onclick(Sender: TObject);
var
str:String;
tmpClass:TClass;
begin
tmpClass:=Sender.ClassType;
While TmpClass.ClassParent<>nil do
begin
str:=TmpClass.ClassName;
Listbox1.Items.Add(str);
TmpClass:=TmpClass.ClassParent;
end;
end;
end.

为什么红色这部分语句：
procedure onclick(Sender:TObject);
如果是放在private、public部分，则它就不能指定给控件（如：Edit1,Checkbox1,RadioButton1,Button1)的OnClick事件。
如果是放在现在这个位置上，就可以指定给这些控件的OnClick事件。
这是为何？还请高手指点！

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
Edit1: TEdit;
CheckBox1: TCheckBox;
RadioButton1: TRadioButton;
[red]procedure onclick(Sender:TObject);[/red]
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.onclick(Sender: TObject);
var
str:String;
tmpClass:TClass;
begin
tmpClass:=Sender.ClassType;
While TmpClass.ClassParent<>nil do
begin
str:=TmpClass.ClassName;
Listbox1.Items.Add(str);
TmpClass:=TmpClass.ClassParent;
end;
end;
end.

为什么红色这部分语句：
procedure onclick(Sender:TObject);
如果是放在private、public部分，则它就不能指定给控件（如：Edit1,Checkbox1,RadioButton1,Button1)的OnClick事件。
如果是放在现在这个位置上，就可以指定给这些控件的OnClick事件。
这是为何？还请高手指点！

如放在private、public部分，可以在运行是指定。

放在private、public里面，在设计时不可以指定吗？

对于窗体，Edit1,CheckBox1的之类的默认属于Published的成员。
而delphi的Object Inspector是只处理Published成员的。
设计时当然不能识别private,public这类的成员了

哦，有道理，是不是可以这样理解:
TForm1=Class(TForm)
Button1:TButton;
...
private
..
public
...
end;
在private上面这部分内容都可以认为是published成员？

哦，资料找到，明白了！谢谢！