P pjxy Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-22 #1 我在edit1的keyreturn 调用一个按钮的click事件 有的时候调用正常,有的时候出现非法操作,就退出了程序。 那位大侠知道是怎么回事,多谢。
P pjxy Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-23 #5 procedure TForm1.edit1KeyReturn(Sender: TObject); begin Button1Click; end; procedure TForm1.Button1Click(Sender: TObject); begin query1.close; query1.ParamByname('hm').asString:=edit1.text; query1.open; end; end.
procedure TForm1.edit1KeyReturn(Sender: TObject); begin Button1Click; end; procedure TForm1.Button1Click(Sender: TObject); begin query1.close; query1.ParamByname('hm').asString:=edit1.text; query1.open; end; end.