Ĺadny brzuch
1.Mam dwa Listboxy. Jeżeli usuną jakąś linie z Listboxa1, to ta sama linia zostanie usunięta z Listboxa2. POMOCY!!!
2. Jeśli klikne na Listboxa, to niech mi powie która to linia(wiersz)
P.S Powie - np. w labelu pokaze :P
Użytkownik In-End edytował ten post 14 sierpień 2005, 15:17
Mam dwa Listboxy. Jeżeli usuną jakąś linie z Listboxa1, to ta sama linia zostanie usunięta z Listboxa2. POMOCY!!!
CHcesz żeby się tak robiło czy tak ci się robi bo nie wiem :>
1:
procedure TForm1.DELClick(Sender: TObject); var I:integer; begin for i:=Listbox1.Items.Count-1 downto 0 do begin if listbox1.Selected[i] then begin listbox1.Items.Delete(i); listbox2.Items.Delete(i); end; end; end;
2:
procedure TForm1.ListBox1Click(Sender: TObject); var I:integer; begin for i:=Listbox1.Items.Count-1 downto 0 do begin if listbox1.Selected[i] then Label1.Caption:=inttostr(i); end; end;
1. napisz coś więcej
2. procedure TForm1.ListBox1Click(Sender: TObject); begin if ListBox1.ItemIndex <> -1 then Label1.Caption := IntToStr(ListBox1.ItemIndex); end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
2. Jeśli klikne na Listboxa, to niech mi powie która to linia(wiersz)
P.S Powie - np. w labelu pokaze :P
Użytkownik In-End edytował ten post 14 sierpień 2005, 15:17
Mam dwa Listboxy. Jeżeli usuną jakąś linie z Listboxa1, to ta sama linia zostanie usunięta z Listboxa2. POMOCY!!!
CHcesz żeby się tak robiło czy tak ci się robi bo nie wiem :>
1:
procedure TForm1.DELClick(Sender: TObject); var I:integer; begin for i:=Listbox1.Items.Count-1 downto 0 do begin if listbox1.Selected[i] then begin listbox1.Items.Delete(i); listbox2.Items.Delete(i); end; end; end;
2:
procedure TForm1.ListBox1Click(Sender: TObject); var I:integer; begin for i:=Listbox1.Items.Count-1 downto 0 do begin if listbox1.Selected[i] then Label1.Caption:=inttostr(i); end; end;
1. napisz coś więcej
2. procedure TForm1.ListBox1Click(Sender: TObject); begin if ListBox1.ItemIndex <> -1 then Label1.Caption := IntToStr(ListBox1.ItemIndex); end;