如何使ListBox选择中内容到EDIT中? ( 积分: 50 )

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-05

• #1

在DELPHI园地下载了一个BusinessSkinForm汉化版.[DelphiFans.com]控件
使用出现问题！
在窗体上放一个bsSkinListBox1和一个bsSkinEdit1
procedure TFrmSRXX.bsSkinListBox1Click(Sender: TObject);
var
i: integer;
begin
for i:=0 to bsSkinListBox1.Items.Count-1 do
if bsSkinListBox1.Selected then
begin
bsSkinEdit1.Text:=copy(bsSkinListBox1.Items.Strings,9,length(bsSkinListBox1.Items.Strings)-8);
end;
end;
bsSkinEdit1中没有任何东西！
如果在窗体上放一个TEdit和一个TListBox控件使用下面事件就有反应！
procedure TFrmSRXX.LBoxClick(Sender: TObject);
var
i: integer;
begin
for i:=0 to LBox.Items.Count-1 do
if LBox.Selected then
begin
edtName.Text:=copy(LBox.Items.Strings,9,length(LBox.Items.Strings)-8);
end;
end;

 

地

地质灾害

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-05

• #2

procedure TFrmSRXX.LBoxClick(Sender: TObject);
var
SelItem:string;
begin
SelItem:=LBox.Items[LBox.ItemIndex];
edtName.Text:=copy(SelItem,9,length(SelItem)-8);
end;
这样就搞定了，还写个循环，而且循环中还没有break语句跳出。

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-05

• #3

to 地质灾害
请注意是第三方控件，下面的代码也没反应！
procedure TFrmSRXX.bsSkinListbox1Click(Sender: TObject);
var
SelItem:string;
begin
SelItem:=bsSkinListbox1.Items[bsSkinListbox1.ItemIndex];
edtName.Text:=copy(SelItem,9,length(SelItem)-8);
end;

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-05

• #4

有没有人用过这个啊。给个答案

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-05

• #5

再顶一下就睡觉去了。明天再来看

 

T

tommyangella

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-06

• #6

没有用过，不知道是否有demo代码看看，如果可以的话，自己稍微研究下

 

L

linuxping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-06

• #7

copy(SelItem,9,length(SelItem)-8);
是不是9已超过字符串长度。。。。
length(SelItem)-8已为负数或0？？

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-06

• #8

有没有人用过BusinessSkinForm汉化版.[DelphiFans.com]控件，帮忙看下
bsSkinListbox1.Items中的内容如下：
一月初五刘明的生日
三月十五张兵的生日

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-07

• #9

都放了这么久了，还没人回答，郁闷啊!!

 

A

asksomeone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-08

• #10

自己再调试几次,因为不一定有人有你那样的环境啊

 

地

地质灾害

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-08

• #11

人品问题，我用了就没问题。

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-08

• #12

to 地质灾害
请问你是用BusinessSkinForm汉化版.[DelphiFans.com]控件试的吗？

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-08

• #13

我也试过好多遍了，都不行啊!

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-08

• #14

to 地质灾害
请留下邮箱，我把它发给你！

procedure TFrmSRXX.LBoxClick(Sender: TObject);//这个是TListBox控件这个可以
var
SelItem:string;
begin
SelItem:=LBox.Items[LBox.ItemIndex];
edtName.Text:=copy(SelItem,9,length(SelItem)-8);
end;

procedure TFrmSRXX.bsSkinListBox1Click(Sender: TObject);//这个不行，主要是这个我问的是这个
var
SelItem:string;
begin
SelItem:=bsSkinListBox1.Items[bsSkinListBox1.ItemIndex];
edtName.Text:=copy(SelItem,9,length(SelItem)-8);
end;

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-09

• #15

to 地质灾害
我想把它发给你，我用的是D7,如果在你那里可以，马上给你加分结贴

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-09

• #16

已放了这么久了还是没人真正解决它。

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-13

• #17

接受答案了.