Discussion :

[tintin62]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tintin62]

bonjour
j'ai trouvé
voici ma solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SergioMaster]

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

[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

[SergioMaster]

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