F9执行时,为什么我按任何一个控件,label1都不显示,错在哪里?
procedure TForm1.FormCreate(Sender: TObject);
var zy,hf,wh,ah0,ah1,ah2:string;
begin
zy:=combobox1.Text ;
if checkbox1.Checked then hf:='已婚' else hf:='未婚';
wh:=radiogroup1.Items[radiogroup1.itemindex];
if listbox1.Selected[0] then ah0:=listbox1.Items[0] else ah0:='';
if listbox1.Selected[1] then ah1:=listbox1.Items[1] else ah1:='';
if listbox1.selected[2] then ah2:=listbox1.Items[2] else ah2:='';
label1.Caption :='他是'+zy+','+hf+','+wh+',爱好'+ah0+ah1+ah2;end;
procedure TForm1.FormCreate(Sender: TObject);
var zy,hf,wh,ah0,ah1,ah2:string;
begin
zy:=combobox1.Text ;
if checkbox1.Checked then hf:='已婚' else hf:='未婚';
wh:=radiogroup1.Items[radiogroup1.itemindex];
if listbox1.Selected[0] then ah0:=listbox1.Items[0] else ah0:='';
if listbox1.Selected[1] then ah1:=listbox1.Items[1] else ah1:='';
if listbox1.selected[2] then ah2:=listbox1.Items[2] else ah2:='';
label1.Caption :='他是'+zy+','+hf+','+wh+',爱好'+ah0+ah1+ah2;end;
解决方案 »
- 急!求delphi6 用 infopower3000!
- 怎么用最简单的方法播放一个wav文件?(不用可视的控件)
- 关于ReportBuilder 的示例?
- 哪位大虾知道AdvStringGrid控件的使用?或在stringGrid中的行或列和并的问题
- 使用TGifImage开始播放gif动画,怎样知道播放到哪一帧?
- delphi spcomm组件中Comm1ReceiveData为什么接收不到短信啊
- 新手问一个ADO的问题?UP有分!
- 新手,请教如何将字符串'2002/07/31'转换成‘2002-07-31’?
- 哪里可以找到delphi的函数原型??回者高分伺侯!!!!!!!!
- 写64bit应用程序,使用ado连接csv遇到问题..
- 突然忘了选择语句的结构,在线等待........ :)
- sql 问题。。
比如checkbox1的OnClick事件,Listbox1的OnClick事件。
你的Form Create只Run一次的