Terimakasih jwbnnya.Akan saya coba.Saya sudah coba buat juga spt ini: 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 saya buat true,tpi tiap kali pilih bbrp item (dg klik salah satu item & tekan shift keyboard)kmdn klik button1,yg tertampil dilistbox2 kok selang-seling ya (item 1,3,5 dst,yg item ke2,4.. masih ada dilistbox1),dimana salahnya atau ada yg harus saya tambahi. Mohon bantuan rekan-rekan.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 SearchMobileComputing.com to access over 500 white papers. Get instant access at SearchMobileComputing.com Today http://us.click.yahoo.com/9lAzoD/PLNGAA/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/
