关于类和对象的一个问题。

Question

你的代码是不是写错了：var Form2:TForm1;
 Form2:=TForm1.Create(Application);

Answer 1

对，呵呵，应该是form2:tform1！

Answer 2

哇，Kingron老兄开讲座了，好好捧场

Answer 3

//faint，晕了！呵呵，讲课失误~~~~~~~~

Answer 4

在Button2的OnClick中为什么要用Self呢？直接写Color := clBlue;不就行了吗。

Answer 5

当然一样，其实不加Self也可以，默认是form，不过如果在With语句中就有问题了。

Answer 6

向Kingron致敬！
向Kingron学习！

Answer 7

呵呵，with可是要人命的东西，不过我喜欢。我以前就问过一个与with有关的问题，在with中是无法访问当前函数中同名的局部变量的。

Answer 8

to Kingron(ＷｉｎＡＰＩ)　:
"默认是form，不过如果在With语句中就有问题了"
请问有什么问题呢？

Answer 9

哇！Kingron(ＷｉｎＡＰＩ)老兄给我们讲课啦！
大家快来听啊！

Answer 10

怎么有点不对，Button2的Self.Color := clBlue,应该是当前生成对象的color属性发生变化奇怪form2(tform1)，它的color这个属性也发生变化呢？应该是单击form2的button2才发生form2 的color变化吧。有点不通了。不过上了一课，not form1,use self

Answer 11

那把自动生成的对象删了算了，占用全局内存。
//var form2: TForm2
然后在主窗体调用的时候再动态声明一个不是更好。
procedure TMainForm.Button1OnClick(Sender: TObject);
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(Application);
  Form2.Show;
end;

Answer 12

当然,默认什么前缀都不用也可以
只要明白类在内存中的存放方式和self(this)指针,就明白老兄的意思

Answer 13

   To Ctrl+C Ctrl+v:
   你的法子不太好，如果有 if not assigned(form2) then 这句话存在，
Form2根本不能被显示（没被初始化）。
  

Answer 14

什么时候，我也发几个这样的专题，哈哈Kingron，不要怪我抢生意哦

Answer 15

怎么跟我说呢，是Kingron
 那句话前面应该有: Form2 := nil;
 to all
有没有发表Socket的专题？
I search...

Answer 16

不管对错，我想继续听课。请Kingron(ＷｉｎＡＰＩ)多讲点。