这一段代码老是执行不成功

jxbw7408 2008-09-14 12:30:53

本的目的是想,如果Combobox6.text='送货'的时候,只将LBbutton2.enabled:=true就行了,但下面这段代码,,它还要往下执行.

去改变LBBTUUON1的属性,去做本来该Combobox6.text='自取' 时才该触发的事件

请老师看看,我对DELPHI的判断一直较糊涂...

procedure Tover.Edit15KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
if Combobox6.Text='送货' then
LBbutton2.Enabled:=true;
LBbutton2.Color:=clskyblue;
LBbutton2.Font.Color:=clfuchsia;
application.MessageBox('请点击保存按钮保存数据!','提示',0+64);

if Combobox6.text='自取' then
Stringgrid1.Enabled:=true;
LBbutton1.Enabled:=true;
LBbutton1.Color:=clskyblue;
LBbutton1.font.Color:=clfuchsia;
Stringgrid1.Row:=1;
Stringgrid1.Col:=1;
stringgrid1.SetFocus;

...全文

35 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

gyk120 2008-09-14

打赏
举报

………………
if
else if……
必须要这种方式才行

jxbw7408 2008-09-14

打赏
举报

if key=#13 then

  if  Combobox6.Text='送货' then

   begin

    LBbutton2.Enabled:=true;

    LBbutton2.Color:=clskyblue;

    LBbutton2.Font.Color:=clfuchsia;

    application.MessageBox('请点击保存按钮保存数据!','提示',0+64);

    Edit15.Text:=formatfloat('0.00',strtofloat(Edit15.Text));

   end

  else

   if Combobox6.text='自取' then

    begin

     Groupbox6.Enabled:=true;

     LBbutton1.Enabled:=true;

     LBbutton1.Color:=clskyblue;

     LBbutton1.font.Color:=clfuchsia;

     Stringgrid1.Row:=1;

     Stringgrid1.Col:=1;

     stringgrid1.SetFocus;

     Edit15.Text:=formatfloat('0.00',strtofloat(Edit15.Text));

    end;