Discussion :

[Le Lézard]

Bonjour à tous,

je bute sur problème particulier :

J'ai une grid (intraweb) avec des cellules clickable.

Je souhaiterais que sur l'evénement OnCellClick, un popup javascript s'ouvre, avec une valeur texte à saisir et 2 boutons (Ok et Cancel)

Si je clique sur cancel, ca ferme simplement la popup.

si je clique sur ok, il faut que mon code Delphi récupère la valeur texte saisie, puis, en l'associant aux informations de la cellule cliquée, exécuter une action particulière coté serveur.

Je suis avec D2006

Merci.

edit :
En fait, là ou j'ai un probleme, c'est comment récupérer le champ saisi et le bouton cliqué dans mon code Delphi du "OnCellClick"

[ShaiLeTroll]

IntraWeb est la librairie la plus mal documentée de Delphi !
C'est une Honte !

Tu utilises une TIWGrid son OnCellClick du type TIWOnCellClick

En C++BuilderXE2, j'ai ceci dans les HPP
En C++Builder 2007, j'ai aussi les PAS associé, je te conseille de les lire si tu les a !

Code c++ :

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

typedef void __fastcall (__closure *TIWOnCellClick)(System::TObject* ASender, const int ARow, const int AColumn);

Code :

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

  TIWOnCellClick = procedure(ASender: TObject; const ARow: Integer; const AColumn: Integer) of object;

les prototypes qui sont finalement les seules sources d'informations potables !

tu notes que tu as ARow et AColumn, cela devrait te permettre d'accéder à Cell[]

Code c++ :

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

__property TIWGridCell* Cell[const int ARow][const int AColumn] = {read=GetCell};

Code :

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

property Cell[const ARow: Integer; const AColumn: Integer]: TIWGridCell read GetCell;

C'est pour gérer le OnCellClick de la TIWGrid !

Pense que tu as accès à tout les JS générés, tu as une propriété Scripts, il me semble dans les IWControl, tu peux donc mettre un formulaire intermédiaire comme IWAdvMessageDialog de TMS et reprendre l’exécution normal du script

Sinon tu vas devoir gérer tes propres évènements, et là, tu n'es pas sorti de l'auberge !

[Le Lézard]

Merci de ta réponse, mais j'ai dû mal m'expliquer.

Mon problème est de 2 ordres :
1 - afficher une popup javascript dès que je clic sur une cellule clickable.
Cette popup doit être du type prompt() de facon à me proposer de saisir une info de type texte.(en fait, c'est un code à 4 chiffres).
Cett popup doit en plus avoir 2 boutons. Cancel et Valid.
Si cancel est clické, ça ferme simplement la popup sans faire d'appel au serveur, comme si je n'avais pas clické sur la cellule.

2 - Si valid est clické, je veux pouvoir récupérer le code saisi dans la popup et le traiter dans dans la procedure OnCellClick()

Quant au javascript qui doit être invoqué, je sais où le placer, il y a une propriété pour ça dans la classe TIWAppForm

mon seul problème étant de savoir cooment l'invoquer, et comment passer sa variable "code" au programme Delphi.
Normalement, on peut l'invoquer grace à la propriété ScriptEvent, mais TIWGrid en est dépourvu !

Voili, voilou...

PS: TMS ne peut être une solution pour moi car payante...

[ShaiLeTroll]

J'ai très bien compris ton problème, et comme je le disais, il te faut regarder le script JS qui appel OnCellClick et tu dois le refaire manuellement ton propre appel JS OnCellClick en injectant dans ScriptEvent avec ta fenêtre intermédiaire !

En fait, je ne vois pas où tu bloques, tu connais déjà tous les éléments !
J'ai aidé un collègue de la même façon en modifiant ScriptEvent pour effectuer un traitement JS AVANT l'appel du Serveur (qui comme toi était optionnel)

ScriptEvents apparait en public dans le TIWCustomControl donc par héritage la TIWCustomGrid et la TIWGrid en bénéficie !

[Le Lézard]

Yo !
Oui, je sais il s'est passé 4 mois... Comme je ne trouvais pas de solution propre, j'ai fait autrement pour ne pas être bloqué, mais maintenant, je reviens dessus.

j'ai donc une grille (TiwGrid) dont une cellule contient un lien hypertext.
Je voudrais lorsque je clic sur ce lien effectuer un javascript avant d'exécuter la procédure MaIwGrid1CellClick.

J'ai donc fait :

Code :

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

1
2
3
4
5
6
7
 
MaIwGrid1.OnCellClick:=MaIwGrid1CellClick;
 
.../...
 
MaIwGrid1[Raw,Col].text:='Cliquer ici';
MaIwGrid1[Raw,Col].clickable:=true;

Ce code génère ce html :

Code :

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

<a href="#" onclick="SubmitClickConfirm('MaIwGrid1','1_2', true, '');return false;">Cliquer ici</a>

A priori, '1_2' correspond à Raw_Col.

Mais voilà, il n'y a pas de propriété ScriptEvents pour la cellule. Donc il n'y a pas de moyen de modifier le "onclick" de la balise <a>

J'ai donc investigué plus loin en essayant de modifier le code javascript de SubmitClickConfirm en faisant un traitement particulier en fonction du premier paramètre (nom de l'objet), mai impossible de mettre la main sur le fichier javascript qui l'implémente (IWCommon.js_8.0.1).
D'après le html généré, ce fichier est ici : http://localhost:8888/js/IWCommon.js_8.0.1
Qui peut me dire où se trouve ce fichier ?

Merci.

[ShaiLeTroll]

Les fichiers JS sont incorporés en ressource de l'Exe (je n'ai testé que le mode StandAlone), je ne crois pas que l'on a accès à ces fichiers, en tout cas pas avec la version fournie avec Delphi
Possible qu'une version complète offre plus de souplesse à ce sujet

On peut les lire dans Intraweb_120_160.bpl pour la version XE2, c'est en binaire, donc pas très exploitable !
C'est des templates dans lesquels IW injecte le nom des variables, il concatènent une palanquée d'élément JS dans la page HTML plus des JS prédéfini comme IWCommon

Normalement tu n'as pas a modifié ces fichiers, ce n'est pas le fonctionnement prévu par Intraweb, mais ils ont prévu que tu puisses injecter tes propres JS