Assigner une forme a un thread

Version imprimable

05/08/2005, 12h27
riou93

Assigner une forme a un thread

Salut, j'aimerais savoir s'il est possible d'assigner une forme à un thread en fait je voudrais avoir pour chaque thread qui se lance une Form et lorsque je clik sur un bouton de ce thread je puiss arreter le thread mais egalement sa form .
J'ai essayé de lui attribuer comme propriéte la form mais a chaque fois j'ai plusieurs Violation d'acces que je n'arrive pas à resoudre?

Merci pour votre aide
05/08/2005, 14h59
MD Software

Normalement, c'est possible.
Tu es sûr que tu créés bien chaque form ?

Oui normalement j'ai suivi l'exemple sur le tutorial
http://lberne.developpez.com/delphi/...us_threads.pdf
sauf que ma form a en plus un bouton du coup lorsque j'apel mon thread ca donne :
Code:

1 2 3 4 5 6 7 Monprocess := TMonThread.Create(true); Monprocess.formPrincipale := self; ChangeControlScale(Monprocess.formprogress); Monprocess.formprogress.spSkinGroupBox1.Caption := Format(sTache, [TacheActive.Nom]); Monprocess.UpdateProgress; Monprocess.Resume;
Mais à l'execution quand j'execute et que je clik sur arreter (bouton de ma formprogress) ca me fait une violation d'acces

05/08/2005, 19h01
Teo

Tu es sur que le click ne genere pas la manipulation d'une resource
utilisé par le thread ?
La manipulation des resources partagées via le thread
doit etre protégées c'est le cas ?

Un bout de ton code clik (arret FormProgress)
et Execute du thread

Lorsque tu accèdes à ta fenêtre depuis le thread, il faut faire un appel synchronisé, par exemple :

Code:

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
type
  TMonThread = class(TThread)
  private
    f : TForm1;
    procedure majLabel;
  protected
    procedure Execute; override;
  end;
 
 
{ TMonThread }
 
procedure TMonThread.Execute;
begin
  while (not terminated) do
  begin
    synchronize(majLabel);
    sleep(500);
  end;
end;
 
procedure TMonThread.majLabel;
begin
  f.label1.Caption := dateTimeToStr(now);
end;

Bloon

08/08/2005, 11h32
riou93
En fait, pour arreter ma tache et mon thread en même temps (ce qui se passe dans le bouton Stop)
Code:

1 2 3 4 5 6 7 try if thread <> nil then begin TMonprocess(thread).HaltExecution; end; except
Mais la violation d'acces me parait bizarre parce qu'elle ne se fait pas sur un evenement qui survient sur l'application, mais un evenement fait sur Windows(style sur un dossier ou sur mon bureau).
Y'aurait il un moyen de vider la pile des messages qu'une form peut recevoir.
Peut être que ma violation d'acces est du à un message envoyer par windows à mon application.
Donc je souhaiterais pour tester purger les messages ou lancer les messages de maniere prémature