begin
Edit1.Text := ListBox1.items[listBox1.itemindex];
end;
위와 같이 코딩하면 선택된 항목을 Edit박스에 뿌려 줄것입니다.
MultiSelect 일 때는
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var i : integer;
begin
if Key = Vk_Return Then
begin
for i:= 0 to ListBox1.items.Count-1 do
begin
if ListBox1.Selected[i] then
Edit1.Text := Edit1.Text + ' ' +ListBox1.items[i];
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
Edit1.Text := ListBox1.items[listBox1.itemindex];
end;
위와 같이 코딩하면 선택된 항목을 Edit박스에 뿌려 줄것입니다.
MultiSelect 일 때는
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var i : integer;
begin
if Key = Vk_Return Then
begin
for i:= 0 to ListBox1.items.Count-1 do
begin
if ListBox1.Selected[i] then
Edit1.Text := Edit1.Text + ' ' +ListBox1.items[i];
end;
end;
end;
위와 같이 하면 선택된 항목을 모두 Edit에 데이터를 뿌려주겠지요.