怎么像按喇叭那样？？(50分)

C

cgh0717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #1

想做一个按钮，按下后就一直做一个事件，直到mouseup，就像按喇叭!!

 

R

Reboot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #2

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Button1.Tag := 1;
repeat
Caption := Caption + '1';//Do something you want here
Application.Processmessages;
until Button1.Tag = 0;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Button1.Tag := 0;
end;

 

H

hqh0717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #3

同意Reboot

 

C

cgh0717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #4

你的回答很切题，就这么给分好像不甘心。能不能告诉我:
怎么在自己Draw的菜单中画图？？？如果不指定Image， 还要可以要默认的那个画出来

 

C

caowei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-03

• #5

问一个还饶一个,呵呵

 

S

Sachow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-03

• #6

吃一碗还蹭一碗，嘻嘻

 

C

cgh0717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-03

• #7

顺便问问总还可以吧，不知你们知不知不道？？

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-03

• #8

给分吧，大方点。：）

 

C

cgh0717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-08

• #9

终于有机会试试那个方法了。不行，那个广告不太好。
对了，要适全于写控件的，用那个方法按钮的样子好像时时总是被按下的.
有没有好点的？？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-03

• #10

>>想做一个按钮，按下后就一直做一个事件，直到mouseup，就像按喇叭!!
>>用那个方法按钮的样子好像时时总是被按下的.有没有好点的？？

?? 你自己不就是要这个效果么？

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-03

• #11

>>你的回答很切题，就这么给分好像不甘心。

看来以后回答你的问题不能太切题了。 ：）

 

B

Bull

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-03

• #12

　　是呀，Reboot 兄回答得很好的，可你……
　　如果有新的问题，可以再提嘛……何必在原来的基础之上追问？
　　看来，太“切题”还有不好的时候……：）
　　你的第二个问题，好像不大让人看得懂耶……讲清楚点儿吧。

 

C

cgh0717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-24

• #13

我想知道怎么像按喇叭那样？？

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-24

• #14

Application.Processmessages;
有何作用？ 有分的，不食言（30分）

 

X

xwings

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-24

• #15

很重要的语句. 就是在循环中让系统去处理别的事情.比如窗体的拖动之类的..
另外当鼠标松开时才可以.处理松开事件啊.

在大的循环中一般要加上这句话.否则系统会认为程序没有响应的,.

 

C

cgh0717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-24

• #16

说得不太明白，不太???

 

左

左轻侯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-24

• #17

哈哈哈
这个贴子笑死我也

 

C

cgh0717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-25

• #18

左轻侯，别这样了，想想办法呀。:>

 

左

左轻侯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-25

• #19

想什么办法？
赶快把分给人家吧
这样下去以后没人会回答你的问题了

 

S

Sachow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-31

• #20

喇叭还没按完吗？！！