supression element dans tlist

Version imprimable

bonjour
encore un probleme avec androir
sur windows sa marche tres bien
mais impossible supprimer un element de liste sur android
voici mon code pour ne plus employer de fenetre modal
j'emploi un ttabcontrol avec 3 items

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
procedure TForm1.Button1Click(Sender: TObject);
var
suppression:boolean;
begin
 form1.TabItem1.Enabled:=true;
 TabControl1.ActiveTab := TabItem1;
 
 
  If ListBox1.ItemIndex<0 Then Exit;
  If Liste.Items[ListBox1.ItemIndex]=Nil Then Exit;
 
  suppression:=false;
  { MessageDlg('Confirmer suppression ?', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0,
  procedure(const AResult: TModalResult)
  begin
    if AResult = mrYes then
    suppression:=true;
  end
        );
           }
    TDialogservice.MessageDialog('voulez vous vraiment supprimer ?',
    tmsgdlgtype.mtconfirmation, [tmsgdlgbtn.mbOk, tmsgdlgbtn.mbCancel],
    tmsgdlgbtn.mbOk, 0,
    procedure(const AResult: TModalResult)
    begin
      case AResult of
        mrok:
          suppression:=true;
        mrcancel:
        suppression:=false;
      else
        raise exception.Create('pas bon');
      end;
    end);
 
   if suppression=true then begin
 
   Dispose(Liste.Items[ListBox1.ItemIndex]);
   // Suppression de l'élément
   Liste.Delete(ListBox1.ItemIndex);
   // Mise a jour du ListBox
   recharge_ListBox;
   end;
end;

pour tlist je me suis inspirer d'un très bon exemple de NONO
https://nono40.developpez.com/sources/source0004/

merci

bonjour
j'ai trouvé
voici ma solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 TDialogservice.MessageDialog('voulez vous vraiment supprimer ?',
    tmsgdlgtype.mtconfirmation, [tmsgdlgbtn.mbOk, tmsgdlgbtn.mbCancel],
    tmsgdlgbtn.mbOk, 0,
    procedure(const AResult: TModalResult)
    begin
      case AResult of
        mrok: begin
 
          Dispose(Liste.Items[ListBox1.ItemIndex]);
         // Suppression de l'élément
          Liste.Delete(ListBox1.ItemIndex);
          // Mise a jour du ListBox
         recharge_ListBox;
 
        end;
 
        mrcancel:
        suppression:=false;
      else
        raise exception.Create('pas bon');
      end;
    end);

il fallait mettre le code dans la question
par contre, on me dit de regarder les exemples, mais quand j'ai téléchargé
delphi 10 community, il n'a pas mis les SAMPLES
où puis-je les trouver ???
je cherche un exemple de tlistview android 3 colonnes

merci

26/04/2023, 14h25
SergioMaster

Citation:

Envoyé par tintin62

par contre, on me dit de regarder les exemples, mais quand j'ai télécharger
delphi 10 community, il n'a pas mis les SAMPLES
où puis-je les trouver ???

https://github.com/Embarcadero/RADStudio10.4Demos

pour ce qui est des colonnes dans un Tlistview FMX
voir cette discussion
26/04/2023, 17h11
tintin62

bonjour
j'avais vu cette discussion et même télécharger exemple
mais moi je voudrais comme avant
avec un truc comme sa tabwork=50;
et mettre column a 3

et mettre listbox1.items.add(nom+#9+prenom+#9+age);
j'ai même mettre format entre les parenthese
merci
26/04/2023, 17h35
SergioMaster

Alors, il faut utiliser un TListbox !
Mais le TlistView comme démontré dans la discussion cité, ça peut le faire