Discussion :

[didi59650]

Le programme de mon bouton contient deux parties. Est-il possbile d'interrompre mon programme a un endroit precis. Puis e appuyant sur un autre bouton ou le meme executer la fin de mon programme?

[didi59650]

je pourrais mettre un sleep mais cela m'est impossible carle temps d'niterruption peut varier

[anapurna]

salut

il faut que tu fasse de cette maniere

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
 
 
Maform = class(Tform)
...
 procedure OnClickPremier(Sender: TObject);
 procedure OnClickSecond(Sender: TObject);
...
end;
 
...
Tmaform.formcreate(Sender : Tobject);
Begin
   ...
  MonBouton.OnClick := OnClickPremier;
end;
procedure Tmaform.OnClickPremier(Sender: TObject);
begin
  ...
   MonBouton.OnClick := OnClickSecond;
end;
 
procedure Tmaform.OnClickSecond(Sender: TObject);
 
begin
  ...
   MonBouton.OnClick := OnClickPremier;//si on veut recommencer l'operation 
end;

@+ Phil

[didi59650]

peux tu m'expliquer avec un programme
par exemple un bouton affiche "1" dans un edit puis le prog est interrompu et quand je rappuie dessu il va afficher "2"

Code :

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

1
2
3
4
5
6
7
 
begin
edit1.text:='1';
 
(qu'est ce que je met?)
 
edit1.text:='2';

merci

[didi59650]

pour etre plus preci j'aimerais qu'il continue à afficher des "1" :

Code :

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

1
2
3
4
5
6
 
for i := 1 to 50 do
begin
edit1.text:='1';
sleep(1000);
end;

puis quan je rappuie sur ce bouton il affiche "2"

[anapurna]

salut

je reprend l'exemple que je t'ai fournit

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
 
Maform = class(Tform)
...
 procedure OnClickPremier(Sender: TObject);
 procedure OnClickSecond(Sender: TObject);
...
end;
 
...
 
Tmaform.formcreate(Sender : Tobject);
Begin   
 edit1.text:='0'; 
MonBouton.OnClick := OnClickPremier;
end;
 
procedure Tmaform.OnClickPremier(Sender: TObject);
begin  
 edit1.text:='1';
 MonBouton.OnClick := OnClickSecond;
end;
 
procedure Tmaform.OnClickSecond(Sender: TObject);
begin  
  edit1.text:='2';
  MonBouton.OnClick := OnClickPremier;//si on veut recommencer l'operation 
end;

@+Phil

[didi59650]

voila ce que j'ai tapé mais rien ne marche et il y a plein d'erreur(pas de compilation)

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
 
procedure TForm1.OnClickPremier(Sender: TObject);
begin
   edit1.text:='1';
   Button1Click.OnClick := OnClickSecond;
end;
procedure TForm1.OnClickSecond(Sender: TObject);
begin
   edit1.text:='2';
   Button1Click.OnClick := OnClickPremier;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1Click.OnClick := OnClickPremier;
end;

ps: je suis sous delphi3

[didi59650]

j'ai trouver un autre moyen plus simple

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
 
procedure TForm1.Button1Click(Sender: TObject);
begin
case Button1.Tag of
  0 :
  begin
    richedit1.lines.add('1');
    Button1.Tag := 1;
  end;
  1 :
  begin
  richedit1.lines.add('2');
    Button1.Tag := 0;
  end;
end;
end;

apr exemple le premier click affiche 1 et le deuxieme 2 ect...