Naviguer dans listbox

Bonjour à tous,
je debute en delphi XE2, avant, j'ai programmé en turbopascal mais cela fait des années que je ne le fait plus, voilà mon problème: j'ai fait un petit programme utilisant un Tlisbox et un TAacroPDF, le but c'est de voir l'apercu d'un fichier pdf, le fichier étant listé dans le listbox.
le problème:
j'ai utilisé OnClick dans listbox et après le click, evidemment, je peut voir le pdf dans Acropdf, seulement, c'est pas réellement ce que je veux avoir, je voulais que tout en naviguant dans listbox (sans sortir) avec les touches flechés haut et bas, je peux visualiser dans acropdf l'aperçu.
est ce que quelqu'un peut me proposer quelque choses pour arriver y arriver ?

Merci

Salut,
Je viens de vérifier, que tu te déplaces avec la souris ou au clavier l'evenmt onclick est toujours appelé. Ton prob est sans doute dans la manière dont tu affiches ton tAacroPDF.
Tu dois simplement conserver le focus sur ta liste.
Cordialement
solilog

Bonsoir,



L'aperçu se déclenche sur déplacement avec les flèches

cantador

Bonsoir,
Mmmouais cantador,
pas besoins, le onclick suffit, le clavier le déclenche aussi bien chaque fois (même en gardant le touche down):
proc onclick(...
var name :string;
begin
with listbox1 do
name := items[itemindex];
if name<>'' then // devrait jamais être vide
begin
... AacroPDF.filename := name; // connais pas AacroPDF
... AacroPDF.preview; // ou print, ...
end;
// si changement de fenêtre ou perte de focus
if not self.active then self.activate;
if not listbox1.focused then listbox1.setfocus;
end;

Simplement il ne faut pas que la proc appelée (print, preview, ..., ne pique le focus ni ne change de fenêtre,
dans ce cas les 2 dernières lignes devraient rêgler le prob.

Bonne nuit
solilog

Merci les amis pour votre célérité et conseil, je vais essayer et je vous donnerais la suite plus tard

FanoAndria

Bjr,
Je reviens encore une fois, je suis désolé les amis mais je n'y arrive pas, je vais donner mes codes et commentaires:

pour charger listbox, pas de problème:
listbox1.items.add(..)

pour les afficher, j'ai fait

procedure Tform1.Listbox1Click(Sender: TObject);
begin
// J'ai utilisé un TopenDialog
OpenDialog1.FileName:=ListBox1.Items.Strings[Listbox1.ItemIndex];
AcroPDF1.LoadFile(OpenDialog1.FileName);
// c'est là que la main change vers TacroPDF;
end;

A partir de là j'ai automatiquement la main sur l'affichage pdf (zoom,print,sauvegarde...)et il faut que je refais un clic sur listbox pour afficher un autre fichier;alors que je voudrais naviguer seulement dans listbox, voir l'apercu et bien sur faire clic sur le pdf pour print ou autre chose
Merci
FanoAndria

salut,

premièrement ton OpenDialog ne sert à rien ici.
ensuite la propriété Strings est la propriété par défaut
il n'est donc pas utile de le préciser :
ListBox1.Items.Strings[0] == ListBox1.Items[0]
et pour finir, pour forcer le focus sur un composant
il faut utiliser sa méthode SetFocus:
ListBox1.SetFocus ....

ce qui donne:


j'ai pas testé le code mais ça devrait fonctionner

---

@+Cirec

---

Merci Cirec,

je suis d'accord pour OpenDialog, je viens de l'enlever, par contre j'ai recopié ton code mais j'ai toujours pas la main sur listbox, il faut re-cliquer.

sinon, en lancant l'executable, je me rend compte qu'après appui sur la touche TAB, je peut revenir sur listbox (ce qui est tout à fait normal avec windows à mon avis); ma question est: comment faire pour simuler cette action dans mon code delphi

Merci
FanoAndria

Salut tous,
Bon dois-je me répéter ?
Après le loadfromfile qui te fait perdre la main,
tu fais çà:

// si changement de fenêtre ou perte de focus
if not self.active then self.activate;
if not listbox1.focused then listbox1.setfocus;
et tu reviendras sur ta listbox.

Bonne fin de journée.
solilog

non non il n'est pas utile de répéter
tu l'as dit je l'ai dit ... et il semblerait que ça ne fonctionne pas !!!

Sinon pour simuler la touche Tab :

---

@+Cirec

---