Discussion :

[Anselme45]

Bonjour à tous,

Comme d'hab avec FMX,je butte toujours sur les trucs les plus simples...

Avec Delphi Rio entièrement patché, j'ai un TListBox dans laquelle j'ajoute des items via du code.

Je veux pouvoir cliquer sur un item pour y récupérer des valeurs.

Problème: l'event ne se déclenche pas quand je clique un item du Listbox

J'ai essayé le "onclick" du ListBox puis le "onItemClick" avec et sans HitTest... Nada!

Est-ce que quelqu'un a la solution magique? Y aurait-il un paramètre au niveau des Items que je ne dois pas laisser par défaut?

Merci

[Anselme45]

Origine du problème trouvé... mais pas la solution!

Les events onClick et onItemClick ne se déclenchent pas parce que j'utilise des styles personnalisés pour ListBox et ses items.

Si j'utilise le layout "listboxstyle" fourni par un stylebook "officiel" dowloadé sur GetIt, les events se déclenchent!

J'ai recopié le "listboxstyle" qui fonctionne et le modifie simplement en y ajoutant un Timage et les events ne se déclenchent plus!

[SergioMaster]

Bonjour,

plus que certainement,un problème dans ton style. Ma "divination" : le Timage que tu as posé est avec un Hittest à true, si celui-ci est aligné au client ....

[pprem]

j'aurais pas pensé à ça de premier abord, mais effectivement les styles personnalisés peuvent avoir des effets de bord si on intercepte ou supperpose des choses sur celles qui doivent recevoir les actions gérées par le code d'origine

[SergioMaster]

En fait, il faudrait "voir" le style utilisé et, tant qu'à faire, le code pour le "remplissage"

[EDIT]J'avoue que je suis en train de faire un test et si j'ai bien le onItemClick qui fonctionne correctement, je bute lamentablement sur le chargement de l'image

ici, c'est mon image "par défaut" dans le style, par contre le OnItemClick fonctionne après le OnListBoxItemClick
mon code de "remplissage"

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
46
47
48
49
50
51
procedure TForm125.Button1Click(Sender: TObject);
var FileList :  TArray<String>;
    aImage : TImage;
    s : String;
    alistItem : TListBoxItem;
const dir = 'D:\Glyphesdelphi\GlyFX\Icons\AERO\PNG\64x64';
begin
  Listbox1.Items.Clear;
  FileList := TDirectory.GetFiles(dir, '*.png');
  for s in FileList do
    begin
      aListItem:=TListBoxItem.Create(Self);
      with aListItem do
        begin
          Height:=80;
          StyleLookup:='itemimage';
          Text:=ExtractFileName(s);
          TagString:=s;
          OnClick:=ListboxItem1Click;  // se déclenchera avant ListBox1ItemClick
          OnApplyStyleLookup:=ListBoxItem1ApplyStyleLookup;
        end;
       ListBox1.AddObject(aListItem);
    end;
end;
 
procedure TForm125.ListBox1ItemClick(const Sender: TCustomListBox;
  const Item: TListBoxItem);
begin
Showmessage('Onitemclick de la liste '+Item.TagString);
end;
 
procedure TForm125.ListBoxItem1ApplyStyleLookup(Sender: TObject);
var
  aImage: TFMXObject;
  f: string;
begin
  aImage := TListBoxItem(Sender).FindStyleResource('Image');
  if assigned(aImage) then
  begin
    f := TListBoxItem(Sender).TagString;
    if FileExists(f) then
 
      TImage(aImage).Bitmap.LoadFromFile(f);
  end;
end;
 
 
procedure TForm125.ListBoxItem1Click(Sender: TObject);
begin
Showmessage('OnListBoxItemClick '+TListBoxItem(Sender).TagString);
end;

[EDIT] Code corrigé = chargement des images , ajustements dans le style (image passé en fond, marge gauche de l'image modifiée)

[Anselme45]

J'étais sûr que c'était un truc simple qui m'avait échappé!

Et c'était le cas: Le problème vient simplement que les images ajoutées dans les styles personnalisés ont un HitTest=True par défaut...

Merci à la "divination" de SergioMaster!!!

[SergioMaster]

Merci à la "divination" de SergioMaster!!!

J'ai une bonne boule de cristal (et pas mal d'expérience sur les styles), ça aide

[Paul TOTH]

j'utilise une astuce qui m'a bien facilité la vie sous FMX

sur la fiche j'ajoute

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
 
procedure TForm1.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Single); // en override
{$IFDEF DEBUG}
var
  Obj: IControl;
  Ctl: TFmxObject;
{$ENDIF}
begin
{$IFDEF DEBUG}
  Obj := ObjectAtPoint(ClientToScreen(TPointF.Create(X, Y)));
  if Obj <> nil then
  begin
    AllocConsole;
    Ctl := Obj.GetObject;
    WriteLn('click on ', Ctl.Name, ':', Ctl.ClassName, ' from ' + Ctl.UnitName);
  end;
{$ENDIF}
  inherited;
end;

avec ce code, et en mode DEBUG sous Windows (pour le AllocConsole), on a une fenêtre qui affiche le nom de l'objet qui a chopé le clic

en effet sous FMX c'est la Fiche qui reçoit le clic et le dispatche sur ses enfants (sauf à avoir un contrôle "natif" sur la fiche)...ça m'a permis de retrouver facilement le composant dont le HitTest est resté actif sur des fiches complexes