n° 219
Novembre 2017
Dicembre 12, 2017, 04:35:20 *
Benvenuto! Accedi o registrati.
Hai dimenticato l'e-mail di attivazione?

Accesso con nome utente, password e durata della sessione
Notizia:
 
   Indice   Linux Windows Techassistance Gameassistance videogame hardware Aiuto Ricerca Agenda Downloads Accedi Registrati  


* Messaggi recenti
Messaggi recenti
Pagine: [1]   Vai giù
  Stampa  
Autore Discussione: (Delphi XE) Sostituire TListBox con TListView  (Letto 2684 volte)
0 utenti e 1 Utente non registrato stanno visualizzando questa discussione.
camaleonteplus
Jr. Member
**

Karma: +0/-0
Scollegato Scollegato

Messaggi: 149


Bello Delphi!

mrcamarium@yahoo.it mrcamarium@yahoo.it
Mostra profilo WWW
« inserita:: Maggio 25, 2013, 05:20:36 »

Con questo codice inserivo dei dati in una TListBox, ma visto che mi sono cambiate le neccessità il codice lo vorrei adattare ad un TListView
Codice:
procedure TForm1.Button2Click(Sender: TObject);
begin
  if modi=true
   then
       begin
           i:=ListView2.ItemIndex+1;
           dato[i].edit1:=edit1.Text;
           dato[i].edit2:=edit2.Text;
           dato[i].edit3:=edit3.Text;
           modi:=false;
           ListView2.DeleteSelected;
       end;
   ListView2.ItemIndex:=ListView2.ItemIndex-1;
   dato[i].edit1:=edit1.Text;
   dato[i].edit2:=edit2.Text;
   dato[i].edit3:=edit3.Text;
   ListView2.ItemIndex:=i;
   stringa:=dato[i].edit1+'     '+dato[i].edit2+'     '+dato[i].edit3;
   ListView2.Items.Add(stringa);
   i:=i+1;
   edit1.Text:='';
   edit2.Text:='';
   edit3.Text:='';
   edit1.Enabled:=false;
   edit2.Enabled:=false;
   edit3.Enabled:=false;
end;
ma come faccio ad adattarlo?
Registrato
camaleonteplus
Jr. Member
**

Karma: +0/-0
Scollegato Scollegato

Messaggi: 149


Bello Delphi!

mrcamarium@yahoo.it mrcamarium@yahoo.it
Mostra profilo WWW
« Risposta #1 inserita:: Maggio 25, 2013, 06:42:03 »

Risolto:
Codice:
procedure TForm1.Button1Click(Sender: TObject);
Var
    Item: TListItem;
begin
    Item := ListView2.Items.Add;
    Item.Caption := Edit1.Text;
    Item.SubItems.Add(Edit2.Text);
    Item.SubItems.Add(Edit3.Text);
    Edit1.Clear;
    Edit2.Clear;
    Edit3.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    if ListView2.ItemIndex >= 0 then
ListView2.DeleteSelected
    else
ShowMessage('Select an item to delete');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if ListView2.ItemIndex >= 0 then
begin
Edit1.Text := ListView2.ItemFocused.Caption;
Edit2.Text := ListView2.ItemFocused.SubItems[0];
Edit3.Text := ListView2.ItemFocused.SubItems[1];
end
else
ShowMessage('Could not select any item to load');
end;
Cosi Funziona.
Registrato
Pagine: [1]   Vai su
  Stampa  
 
Vai a:  

Copyright © 2017 Edizioni Master SpA. p.iva : 02105820787

Tutti i diritti di proprietà letteraria e artistica riservati. - Privacy



powered by Simple Machines