ListView aktivni Item a listovani – Delphi – Fórum – Programujte.com

Zdravim,

Prosim Vase chytry hlavy o odpoved na dve otazky.

1. pri kliknuti do TreeView, se mi do ListView vypisou vsechny soubory .jpg ze slozky.
    prikazem ListView1.Selected:= ListView1.Items[0];  oznacim hned prvni soubor.   Sice se oznaci jako aktivni,ale ja bych potreboval,aby se stal aktivnim jako kdybych na nej klikl ,aby se mi rovnou nacetl do Image.
zkousel jsem ListView1.Selected.Focused; ,ale to taky nepomohlo.

2. chtel bych v ListView prochazet pomoci tlacitek (next/ previous) ,ale nevim, jak zjistim, kterej Item v ListView je zrovna vybranej, abych mohl napsat na udalost tlacitka:
ListView1.Selected:= ListView1.Items[+1]; ...  // tady nevim teda presnej zapis

stacil by i link , kde se to resi, ja nic nenasel .. :o(

dekuji

tak bod1 uz mam.
je na to udalost OnSelectItem v ListView

Předpokládám, že máš zakázaný MultiSelect a pro lepší orientaci máš HideSelection nastavený na false.

Když si vybereš nějakou položku a zachytíš to přes OnSelectItem, tak si ulož její index do nějaké (třídní) proměnné - řekněme index. Kód pro posun na předchozí se tak sestává z kontroly, jestli náhodou nejsme na začátku ListView no a pokud ne, tak provedeme odvýběr stávající položky, posun indexu a výběr nové položky, něco jako:

if (index > 0) then begin
        ListView1.Items.Item[index].Selected := false;
        index := index - 1;
        ListView1.Items.Item[index].Selected := true;
end

a pro přechod na následující položku je to analogicky, jen se kontroluje druhá mez a index se inkrementuje, takže něco jako:

if (index < (ListView1.Items.Count - 1)) then begin
        ListView1.Items.Item[index].Selected := false;
        index := index + 1;
        ListView1.Items.Item[index].Selected := true;
end

#3 liborb

jj, vcera jsem mlatil hlavou o stul az se mi tam rozlo a napsal jsem tohle:

procedure TForm1.SpeedButton13Click(Sender: TObject);
var a: integer;
begin
  a:= ListView1.Selected.Index;
  If a <> 0 then
  begin
  SpeedButton14.Visible:= True;
  ListView1.Selected:= Listview1.Items[a-1];
  end
  else
  SpeedButton13.Visible:= False;
end;

procedure TForm1.SpeedButton14Click(Sender: TObject);
var a: integer;
begin
  a:= ListView1.Selected.Index;
  If a <> ListView1.Items.Count -1 then
  begin
  SpeedButton13.Visible:= True;
  ListView1.Selected:= Listview1.Items[a+1];
  end
  else
  SpeedButton14.Visible:= False;
end;

zapomel jsem to sem strcit,omlouvam se.   je to v podstate to samy,jak pises,akorat jsem neprovedl ten odvyber.
je to nejak dulezity ??

presto dekuju

Jestli to je důležitý? Je to prostě o tom, že se buď spolehneš, že se něco udělá za tebe nebo to uděláš sám a máš jistotu. Pokud ti to funguje i tak, tak to nejspíš důležité nebylo :).