如何在一个事件的代码 中引用 另一个事件(50分)

W

wxxmlx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #1

如何在一个事件的代码 中引用 另一个事件

 

S

sgs125

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #2

看是什么事件了
例如要调研button的click我们可以用
button1。click就可以了

 

L

lzm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #3

button1調用button2的事件﹐傳入(Sender)或相關參數就行了。
button1click(TObject *Sender)
{
button2click(Sender);
}

 

W

wxxmlx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #4

我这里的问题是在button的click事件中引用combobox的change

 

Z

zhaomh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #5

buttonclick(TObject :Sender)
{
combobox.onchange(Sender);
}

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #6

以下都可以。
combobox1.onchange(button1);
combobox1.onchange(ComBobox1);

 

W

wxxmlx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #7

adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert kefangbuid (id,idmima)');
adoquery1.sql.add('values');
adoquery1.SQL.Add('edit2.Text,edit3.text');
adoquery1.Open;

我想插入edit2和3的text的值。格式错了。
谁告诉怎么做。

 

M

misxjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #8

直接写出你应调用的事件！

 

S

sanoul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #9

把你所需要的函数或者过程直接写出来就可以调用了，需要什么参数就加什么参数，这都不可以么？

 

L

LiuFution

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #10

Procedure TForm1.abc;//自定义过程
var Sender:TObject;
begin
button1click(Sender);
end;
这样就可以了！

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #11

>>来自：wxxmlx, 时间：2002-12-9 13:24:00, ID：1496138
>> adoquery1.SQL.Add('insert kefangbuid (id,idmima)');
>> adoquery1.sql.add('values');
>> adoquery1.SQL.Add('edit2.Text,edit3.text');
>> adoquery1.Open;
>>我想插入edit2和3的text的值。格式错了。
>>谁告诉怎么做。
好像要这样－－
var SQl_Str:String;
SQl_Str:='insert kefangbuid (id,idmima) values('+edit2.Text+','+edit3.text+')';
with adoquery1 do
begin close; SQL.clear; Add(SQl_Str); try ExecSQL except 。。。 end ; end;

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #12

//adoquery1.SQL.Add('edit2.Text,edit3.text');
假设 id 字段为整型，idmima 字段为字符串：
adoquery1.SQL.Add(edit2.Text + ', ''' + edit3.text + '''');
如果两个都是字符串：
adoquery1.SQL.Add('''' + edit2.Text + ''', ''' + edit3.text + '''');

记住，在字符串里面，两个单引号代表一个单引号。