帮我解析一下 小程序

Question

我想从这个小程序开始学习delphi，这是我第一天学习  希望各位能帮我解析一下  （用注释就行）var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button2.Hide;
button3.Show;
end;procedure TForm1.Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button3.Hide;
button2.Show;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
button2.Show;button3.Hide;
end;procedure TForm1.Button1Click(Sender: TObject);
beginapplication.MessageBox('哈哈...我早就知道了。','好吗？',mb_okcancel);
end;
本文来源于Spirit's Home http://www.7788sky.cn/ , 原文地址：http://www.7788sky.cn/post/delphi-xiangnile.html 

Answer 1

var 
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); //鼠标移上去就隐藏起来当前的button另一个显示出来 button2和button3的caption都是 ‘不想’
begin 
button2.Hide; 
button3.Show; 
end; procedure TForm1.Button3MouseMove(Sender: TObject; Shift: TShiftState; X, 
Y: Integer); 
begin 
button3.Hide; 
button2.Show; 
end; procedure TForm1.FormCreate(Sender: TObject); //窗体创建时button2、button3只显示一个
begin 
button2.Show;button3.Hide; 
end; procedure TForm1.Button1Click(Sender: TObject); 
begin application.MessageBox('哈哈...我早就知道了。','好吗？',mb_okcancel); 
end; 
这段代码就是让你只能按button1 不让按button2 button3