نقل السطر المحدد منlistbox1 الىlistbox2

[لؤي]

سلام الله عليكم

لدي إثنان listbox يحتوي الملف 'Fichier1.txt' على اسطر ...ماهي التعليمة اللازمة التي اضعها حتى يتسنى لي نقل السطر المحدد من listbox1 الى listbox2

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
begin
listbox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'Fichier1.txt');
end; 


[محمد عبد العزيز]

وعليكم السلام ورحمة الله

جرب شئ مثل:

كود :

if ListBox1.itemindex<>-1 then ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);

[لؤي]

بارك الله فيك كنت أبحث عن النواة التي أدرجتها و بها أستخرجت :

كود :

procedure TForm1.Button1Click(Sender: TObject); begin if ListBox1.itemindex<>-1 then ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]); end; procedure TForm1.FormCreate(Sender: TObject); begin listbox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'Fichier1.txt'); end; procedure TForm1.ListBox1DblClick(Sender: TObject); begin if ListBox1.itemindex<>-1 then begin ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]); ListBox1.Items.Delete(ListBox1.ItemIndex); end; end; procedure TForm1.ListBox2DblClick(Sender: TObject); begin if ListBox2.itemindex<>-1 then begin ListBox1.Items.Add(ListBox2.Items[ListBox2.ItemIndex]); ListBox2.Items.Delete(ListBox2.ItemIndex); end; end;

أي يمكن التنقل من المكونين بـdouble click