Makasih jwbannya,akan saya coba.Saya sudah buat yg hampir sama sepertinya sbb: procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin i:=0; while i <= listbox1.items.count-1 do begin if listbox1.selected[i] then begin with listbox1 do begin listbox2.items.add(listbox1.items[i]); listbox1.items.delete(i); end; end; inc(i); end; end;
multiselect dan extendedselect sudah saya buat true,tpi kok jika item2 dilistbox1 dipilih(klik slh satu kmdn tekan shift keyboard) &klik button yg tertampil dilistbox2 selang-seling ya (item1,item3,item5 dst yg item2,4,dst ga ikut(msh dilistbox1),ada yg hrs saya tambahkan/perbaiki? Mohon bantuannya.terimakasih --- In [EMAIL PROTECTED], "Agustono Gotama" <[EMAIL PROTECTED]> wrote: > Saya nggak ngerti tentang 'tekan shift pada ms-word'. Tapi saya coba tangkap > maksud Anda, dan ini ada contoh sederhana ttg meng-copy item dari ListBox1 > ke ListBox2 pada saat Button1 di-click. Semoga membantu. > > procedure TForm1.Button1Click(Sender: TObject); > var i: Integer; > begin > for i:=0 to ListBox1.Items.Count-1 do > if ListBox1.Selected[i] then > ListBox2.Items.Add(ListBox1.Items[i]); > end; > ------------------------ Yahoo! Groups Sponsor ---------------------~--> Looking for the latest Free IT White Papers? Visit SearchSecurity.com to access over 500 white papers. Get instant access at SearchSecurity.com Today http://us.click.yahoo.com/.lAzoD/QLNGAA/witMAA/i7folB/TM ---------------------------------------------------------------------~-> Berlangganan: [EMAIL PROTECTED] Stop Berlangganan: [EMAIL PROTECTED] Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
