Q&A

  • 리스트박스에서여...
리스트박스에 몇개의 아이템이 있습니다..



이걸 몇개 선택하면 선택된 아이템을 에디트 박스에 보여주고 싶은데여..



처음 선택된것이 에디트박스1에..두번째 선택된것이 에디트박스2에 넣는거져..



어떻게하면좋죠??



Edit1.text:=listbox1.items[listbox1.itemindex];

Edit2.text:=listbox1.items[listbox1.itemindex];



이렇게 했더니 나중에 선택된것만 두개가 나오더라구여...



고수님들의 답변 부탁드립니다..

4  COMMENTS
  • Profile
    구창민 2000.06.06 02:08
    heimdal wrote:

    > 리스트박스에 몇개의 아이템이 있습니다..

    >

    > 이걸 몇개 선택하면 선택된 아이템을 에디트 박스에 보여주고 싶은데여..

    >

    > 처음 선택된것이 에디트박스1에..두번째 선택된것이 에디트박스2에 넣는거져..

    >

    > 어떻게하면좋죠??

    >

    > Edit1.text:=listbox1.items[listbox1.itemindex];

    > Edit2.text:=listbox1.items[listbox1.itemindex];

    >

    > 이렇게 했더니 나중에 선택된것만 두개가 나오더라구여...

    >

    > 고수님들의 답변 부탁드립니다..





    안녕하세요~ 구창민입니다.

    아주 간단할 거 같아요.

    온라인 상으로 대충 적어 보겠습니다.



    procedure ButtonClick..

    var i : integer;

    begin

    for i := 0 to ListBox1.Items.Count -1 do

    begin

    if ListBox1.Selected[i] then

    begin

    with Form1.FindComponent('Edit'+IntToStr(i)) as TEdit do

    Text:= ListBox1.Items[i];

    end;

    end;

    end;



    이런 형태면 될거 같은데..^^;



    잘 안되시면 다시 질문 올려주세요.



    그럼~ 즐거운 프로그래밍 하시길~

  • Profile
    heimdal 2000.06.06 06:52
    구창민 wrote:

    > heimdal wrote:

    > > 리스트박스에 몇개의 아이템이 있습니다..

    > >

    > > 이걸 몇개 선택하면 선택된 아이템을 에디트 박스에 보여주고 싶은데여..

    > >

    > > 처음 선택된것이 에디트박스1에..두번째 선택된것이 에디트박스2에 넣는거져..

    > >

    > > 어떻게하면좋죠??

    > >

    > > Edit1.text:=listbox1.items[listbox1.itemindex];

    > > Edit2.text:=listbox1.items[listbox1.itemindex];

    > >

    > > 이렇게 했더니 나중에 선택된것만 두개가 나오더라구여...

    > >

    > > 고수님들의 답변 부탁드립니다..

    >

    >

    > 안녕하세요~ 구창민입니다.

    > 아주 간단할 거 같아요.

    > 온라인 상으로 대충 적어 보겠습니다.

    >

    > procedure ButtonClick..

    > var i : integer;

    > begin

    > for i := 0 to ListBox1.Items.Count -1 do

    > begin

    > if ListBox1.Selected[i] then

    > begin

    > with Form1.FindComponent('Edit'+IntToStr(i)) as TEdit do

    > Text:= ListBox1.Items[i];

    > end;

    > end;

    > end;

    >

    위와같이 form1의 edit컴포넌트를 찾아서 거기에다가 선택된아이템을 넣을경우..

    edit컴포넌트가 많은경우엔 안되더군여..



    그래서

    for i := 0 to datacheck.Items.Count-1 do

    begin

    if datacheck.Selected[i] then

    begin

    if main.datacheck1.text='' then

    main.datacheck1.Text:=datacheck.items[i]

    else main.datacheck2.text:=datacheck.items[i];

    end;

    end;

    이렇게 바꿨는데...



    흠..그래두 안되네여..

    눈이 자꾸 감기구..생각하기가 싫어질려고하는데 어쩌죠??

  • Profile
    타락천사 2000.06.06 01:23
    안녕하세여.. 타락임다..^^



    첨에는 무슨말인지 몰라 좀 어리둥절했져..^^



    MultiSelect 를 말하는 거져? ^^



    근데, 저두 몰라여..^^;;;



    자세히 말하면 어딘가 적어놨는데, 그때 보구 잊어 먹었어여..ㅠㅠ



    델파이 Q&A에 있을거 같은데,,,, 함 차자 보세요..



    공력이 높으신, 최용일님과 강민주님의 팁을 집중적으로 찾아보면 나올거입니다..^^



    직접 찾는 방법밖에 없을거라구 생각합니다..ㅠㅠ



    왕초보 타락천사..^_____^



    heimdal wrote:

    > 리스트박스에 몇개의 아이템이 있습니다..

    >

    > 이걸 몇개 선택하면 선택된 아이템을 에디트 박스에 보여주고 싶은데여..

    >

    > 처음 선택된것이 에디트박스1에..두번째 선택된것이 에디트박스2에 넣는거져..

    >

    > 어떻게하면좋죠??

    >

    > Edit1.text:=listbox1.items[listbox1.itemindex];

    > Edit2.text:=listbox1.items[listbox1.itemindex];

    >

    > 이렇게 했더니 나중에 선택된것만 두개가 나오더라구여...

    >

    > 고수님들의 답변 부탁드립니다..

  • Profile
    blue21 2000.06.06 01:21
    heimdal wrote:

    > 리스트박스에 몇개의 아이템이 있습니다..

    >

    > 이걸 몇개 선택하면 선택된 아이템을 에디트 박스에 보여주고 싶은데여..

    >

    > 처음 선택된것이 에디트박스1에..두번째 선택된것이 에디트박스2에 넣는거져..

    >

    > 어떻게하면좋죠??

    >

    > Edit1.text:=listbox1.items[listbox1.itemindex];

    > Edit2.text:=listbox1.items[listbox1.itemindex];

    >

    > 이렇게 했더니 나중에 선택된것만 두개가 나오더라구여...

    >

    > 고수님들의 답변 부탁드립니다..



    ListBox의 프로퍼티에 보면 'SelCount'와 'Selected'라는 것이 있는데 이것을 잘 사용하면 될 것 같네요....