如何轮流显示combobox栏的项目 ( 积分: 200 )

W

whhnnn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #1

如何轮流显示combobox栏的项目：
form中有一个timer1，一个combobox1，还有button1，button2
combobox中有aaa，bbb，ccc，ddd等字符，
以0.1秒为间隔，按button1按钮时，combobox1中轮流显示aaa，bbb，ccc，ddd到最后一个时，重头再循环。直到按button2按钮结束。

 

P

pottos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #2

var
i:integer;
.......
procedure Tform1.Timertimer(sender:Tobject)
var
Cont:integer;
begin
cont:=Combobox1.item.Count-1;
i:=i+1;
if i>cont then i:=0;
Combobox1.text:=Combobox1.item.string;
end;

 

3

3868474

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #3

procedure Tform1.Timertimer(sender:Tobject)
begin
//combobox1.style设为csDropDownList
if combobox1.itemIndex < combobox1.items.count -1 then
combobox1.itemIndex := combobox1.itemIndex + 1
else
combobox1.itemIndex := 0;
combobox1.Repaint;
end;

 

3

3868474

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #4

procedure Tform1.Timertimer(sender:Tobject)
begin
//timer1.interval := 100;
//combobox1.style设为csDropDownList
if combobox1.itemIndex < combobox1.items.count -1 then
combobox1.itemIndex := combobox1.itemIndex + 1
else
combobox1.itemIndex := 0;
combobox1.Repaint;
end;
//button1按下时 timer1.enabled := true;
//button2按下时 timer1.enabled := false;

 

W

whhnnn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #5

谢谢上面两位大侠：
在按button2停止时如果显示的是aaa，那么在再次按button1时，我希望将combobox1中aaa字段删除掉，
如何写？？

 

3

3868474

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #6

如果是彻底删除
combobox1.Items.Delete(combobox1.itemIndex)
combobox1.items.itemIndex := 0;
如果只是不显示
combobox1.items.itemIndex := -1;

 

L

listhano

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #7

想这样就行：
========================================
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled := false;//停止
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if combobox1.itemIndex < combobox1.items.count -1 then
combobox1.itemIndex := combobox1.itemIndex + 1
else
combobox1.itemIndex := 0;
combobox1.Repaint;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.enabled := true;//运行
end;

procedure TForm1.FormShow(Sender: TObject);
begin
timer1.enabled := false;
end;

========================================

 

W

whhnnn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #8

在按button2停止时如果显示的是aaa，
那么在第二次按button1时，我希望将combobox1中aaa字段删除掉，
也就是第二次按button1时，combobox1中不会再有aaa字段出现了
如何写？？

 

3

3868474

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-02

• #9

combobox1.Items.Delete(combobox1.itemIndex)
combobox1.items.itemIndex := -1;

 

P

pottos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-02

• #10

combobox1.items是一个Tstring类。
有Tstring的所有事件和属性add(增加) delete删除 insert插入 savetofile存文件 loadfromfile读文件 等
还有listbox.lines也是Tstring类

 

L

listhano

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-28

• #11

搂主，放分呀