菜鸟捉虫(36)
?牐犜贒LL代码中,很明显的一个错误就是没有exports段将ShowAboutForm函数输出。这样主程序将无法使用这个函数。另外,如果用AboutForm.Show则会看不到窗体,因为它刚一显示出来就被Free掉。另外,因为Show所显示的窗体不是无模式窗体,使用ShowModal显示窗体后,窗体在没有关闭时将不会被Free掉。
#1?牐牷窠泵ィ?
?牐犃赡? 吴 新 山东 张 鹏
?牐犓拇? 彭宇正 湖南 丁 益
?牐牴愣? 刘远毅
?牐犚陨闲以硕琳呓竦玫缒员ㄗ钚鲁銎返摹兜缒员ㄏ盗信涮坠馀獭吩又疽惶住?
#1?牐牨酒谔饽浚?
?牐牨酒诘奶饽恳笪颐嵌唇?6个按钮,并在单击某个按钮显示出所单击按钮的Caption值。下面的程序代码就是实现这个功能的,但是存在一些错误,请将这些错误找出来:
?牐牎?
?牐爑ses
?牐燱indows, Messages, SysUtils, Classes, Graphics, Controls,Forms, Dialogs;
?牐爐ype
?牐牎?
?牐爌rivate
?牐爌rocedure DoClick(Sender:TObject);?牔?
?牐爒ar
?牐燜orm1:TForm1;
?牐爒Btn:Array[0..5]?爋f TButton;
?牐燬trLst:TStringList;
?牐牎?
?牐爌rocedure TForm1.DoClick(Sender:TObject);
?牐?//响应单击事件
?牐爒ar
?牐爄:integer??
?牐燽egin
?牐爁or i:=0 to 5 do
?牐燽egin
?牐爄f Sender:= vBtn[i] then
?牐燬howMessage('你单击的按钮是:' + vBtn[i].Caption);
?牐爀nd;
?牐爀nd;
?牐爌rocedure TForm1.FormCreate(Sender:TObject);
?牐爒ar
?牐爄,vHeight:integer??
?牐燽egin
?牐燬trLst:=TStringList.Create;
?牐燬trLst.Add('VB');??
?牐燬trLst.Add('VC');??
?牐燬trLst.Add('Delphi);??
?牐燬trLst.Add('Java);
?牐燬trLst.Add('C#');
?牐燬trLst.Add('ASP.NET');
?牐爒Height:=50;
?牐爁or i:=0 to 5 do
?牐燽egin
?牐爒Btn[i]:=TButton.Create(Form1);//创建按钮
?牐爒Btn[i].Caption:=StrLst.Strings[i];??
?牐爒Btn[i].Left:=0??
?牐爄f i=0 then
?牐爒Btn[i].Top:=0
?牐爀lse
?牐爒Btn[i].Top:=vBtn[i-1].Top + vHeight;
?牐爒Btn[i].Width:=200;
?牐爒Btn[i].Height:=vHeight;
?牐爒Btn[i].OnClick:=DoClick;
?牐爀nd;
?牐爀nd;
?牐爌rocedure TForm1.FormDestroy(Sender:TObject);
?牐爒ar
?牐爄:integer??
?牐燽egin
?牐?//释放资源
?牐燬trLst.Free??
?牐爁or i:=0 to 5 do
?牐爒Btn[i].Free??
?牐爀nd;
?牐爀nd