100分求救---在线等等等 (100分)

X

xiaolaoda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #1

本人对timer控件不熟，在窗口上有50个button,其中有20个
name 有规律，分别是btn1.btn2,btn3......btn20,我要每隔
一秒变换一个btn的caption属性为“恭喜”，从btn1到btn20,
20秒后全部变完，其它的30个button不改变，100分求救。

 

C

china_peng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #2

设定其中20个的tag为1，其他30为2
然后循环

 

沙

沙_儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #3

定义一个TButton类型的数组,将你的Button的Name放进去,然后用类似Arr.Caption
的格式，修改Caption

 

X

xiaolaoda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #4

我要代码！！
楼上说的我早就试过了，请给我代码，我的代码如下
MyButton:=tbutton(FindComponent('btn'+inttostr(i)));
if Assigned(MyButton) then
begin
。
。
。

end;

 

A

Awen.ZW.Yang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #5

//Tag为Form的Tag,初始为0
if findComponent('btn'+IntToStr(Tag)) is TButton then
TButton(findComponent('btn'+IntToStr(I))).Caption = '恭喜';
Tag := Tag + 1;
if Tag = 20 then Timer1.Enabled := False;

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #6

var
index: integer=1;//全局变量

procedure TForm1.Timer1Timer(Sender: TObject);
begin
TButton(FindComponent('btn'+IntToStr(index))).Caption := '恭喜';
if index = 30 then
index := 1
else
inc(index);
end;

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #7

能不能說得清楚一點

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #8

procedure TForm1.Timer1Timer(Sender: TObject);
const index:integer=1;//可赋值常数
begin
TButton(FindComponent('btn'+IntToStr(index))).Caption := '恭喜';
inc(index);
if index > 20 then index := 1
end;

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #9

project->options->compiler->
Assignable typed constants让这个选项打勾!!

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #10

设一个全局变量No

var No:integer=1;

procedure Tform1.Timer1Timer(Sender: TObject);
var i:integer;
begin
if No>20 then Timer1.Enabled:=false;
for i:=0 to ComponentCount-1 do
begin
if Components.Name='btn'+IntToStr(No) then
(Components as TButton).Caption:='恭喜';
end;
Inc(No);
end;

 

M

mei_mei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #11

楼上兄台能实现上述功能吗？Awen.ZW.Yang和影子实现方法就行

 

L

luosum

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #12

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if i=3 then //i 全局变量
timer1.Enabled:=false;
if i<3 then
begin
tbutton(findcomponent('button'+inttostr(i))).caption:='nihao';
//showmessage(tbutton(findcomponent('button'+inttostr(i))).caption);
// showmessage()
inc(i);
end;

end;

 

H

happyloner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #13

stuwe的方法可以吧