리스트박스에 몇개의 아이템이 있습니다..
이걸 몇개 선택하면 선택된 아이템을 에디트 박스에 보여주고 싶은데여..
처음 선택된것이 에디트박스1에..두번째 선택된것이 에디트박스2에 넣는거져..
어떻게하면좋죠??
Edit1.text:=listbox1.items[listbox1.itemindex];
Edit2.text:=listbox1.items[listbox1.itemindex];
이렇게 했더니 나중에 선택된것만 두개가 나오더라구여...
고수님들의 답변 부탁드립니다..
> 리스트박스에 몇개의 아이템이 있습니다..
>
> 이걸 몇개 선택하면 선택된 아이템을 에디트 박스에 보여주고 싶은데여..
>
> 처음 선택된것이 에디트박스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;
이런 형태면 될거 같은데..^^;
잘 안되시면 다시 질문 올려주세요.
그럼~ 즐거운 프로그래밍 하시길~