Discussion :

[Aloneghost]

Bonsoir à vous tous! je suis bloqué devant un tout petit probleme qui me chagrine... :'( une application enregistre tous les mouvements de l'utilisateur (souris et clavier) et les notes dans deux mémo, un enregistre la souris, l'autre la souris ET le clavier... pour gagner de l'espace je les ai rangé dans un tabbednotebook, mais le probleme, c'est que mes mémo n'enregistrent plus les informations lorsqu'ils ne sont pas visibles...
Pouvez vous m'aider?

[denokan]

est-tu sûr que la routine qui doit ecrire dans tes memos est bien déclenchée au bon moment ?

[Aloneghost]

C'est un Timer qui rajoute une ligne achacun des deux mémo toutes les 10 millisecondes...

[qi130]

Peut-être que si tu donnais le bout de code incriminé, ça aiderait...

[Aloneghost]

Code :

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

1
2
      Memo1.Lines.Add('<Click> Temps: '+inttostr(turn)+'  Click Bas Droit: X:'+inttostr(pos.x)+' Y:'+inttostr(pos.y));
      Memo2.Lines.Add('<Click> Temps: '+inttostr(turn)+'  Click Bas Droit: X:'+inttostr(pos.x)+' Y:'+inttostr(pos.y));

voila ce qu'il se passe (simplifié) lorsque l'utilisateur click ou utilise le clavier, mais lorsqu'un mémo est caché, en mode visible:=false, il n'enregistre plus les données...

[denokan]

essaye de vérifier que ton timer déclenche bien correctement, en changeant le caption de ta form ou en faisant un showmessage par exemple

[Aloneghost]

mon timer se déclenche bien, puisque mon appli laisse visible un des deux mémo, quand on en rend un visible, l'autre diparait, et les informations ne se mettent a jour que lorsque le mémo est affiché... :'(

[denokan]

plutot que de remplir un Memo invisible, tu devrai peut-être essayer avec une StringList ?

[Aloneghost]

Mon application a besoin de deux Mémo car ils affichent deux choses differentes, l'un enregistre pleins d'informations, et le second est la pour remplacer le premier lorsqu'on choisis l'option "cacher les déplacements de la souris", ce qui rend les choses plus claire, le but étant de pouvoir acceder a toute les info de maniere visuelle, et tout rechargé dans le T mémo a chaque fois serait peut etre un peu trop lourd... :/

[Aloneghost]

J'ai remplacé mes deux memo par des richedit, l'erreur affiché avec ce bout de code est de type Erreur d'insertion de ligne Trichedit

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
 
procedure TForm1.Ouvrirscript1Click(Sender: TObject);
Var F: TextFile;
Stg:String;
begin
if OpenDialog1.Execute then
begin
Memo1.Clear;
AssignFile(F,opendialog1.FileName);
Reset(F);
repeat
Readln(F,Stg);
Memo1.Lines.Add(Stg);
until EOF(F);
CloseFile(F);
end;
end;

Ca ne marche pas... :'( Je ne vois pas pourquoi! :'(

[denokan]

moi j'aurai remplacé ton repeat until par un while not do begin, au cas où le fichier soit vide, mais sinon rien ne me choque dans ton code

[Aloneghost]

j'ai effacé mes mémo, et tout reconstruit au niveau de l'interface... et ca marche... Alors je clos le sujet, en considérant que ca doit etre de ma faute, j'ai du mal faire quelques chose............

Merci à vous tous de vos réponses!!