procedure TForm6.Timer1Timer(Sender: TObject);
begin
Button3.Click;
Button4.Click;
end;
procedure TForm6.Button4Click(Sender: TObject);
Var X, Y, I : Integer;
Z : cardinal;
begin
Timer1.Enabled := true;
Z := Timer1.Interval;
Z := StrToInt(Edit3.Text);
Timer1.Interval := Z;
Timer1.Interval := Z * 60000;
begin
X := StrToInT(Edit1.Text);
Y := StrToInt(Edit2.Text);
end;
SetCursorPos(X, Y);
I := StrToInt(Edit4.Text);
For I := 1 to StrToInt(Edit4.Text) do
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Sleep(250);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end; end;
procedure TForm6.Button3Click(Sender: TObject);
Var X, Y, I : Integer;
Z : cardinal;
begin
Timer1.Enabled := true;
Z := Timer1.Interval;
Z := StrToInt(EDit3.Text);
Timer1.Interval := Z;
Timer1.Interval := Z * 1000;
begin
X := StrToInT(Edit1.Text);
Y := StrToInt(Edit2.Text);
end;
SetCursorPos(X, Y);
I := StrToInt(Edit4.Text);
For I := 1 to StrToInt(Edit4.Text) do
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Sleep(250);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end; end;
procedure TForm6.Button2Click(Sender: TObject);
begin
If ComboBox1.Items[ComboBox1.ItemIndex] = 'En seconde' then begin
Radiogroup1.visible := true;
Button3.Enabled := true;
Button3.Visible := true;
Edit3.Visible := true;
Button4.visible := false;
Button4.enabled := false;
end;
begin
If ComboBox1.Items[ComboBox1.ItemIndex] = 'En minute' then begin
Radiogroup1.visible := true;
Button4.Visible := true;
Button4.Enabled := true;
Edit3.Visible := true;
Button3.Visible := false;
Button3.Enabled := false;
end;
end; end;
end.
et le probleme c'est que quand je voudrai que ça clique à chaque foi tote les 10 seconde ça le fait la premiere fio et la 2eme foi ça ne marche plus.
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 4 févr. 2006 à 21:08
Non mais attend,
tu poses des questions parce que tu as un problème dans ton code ok
on te répond et on te fournis la réponse où solution comme tu veux
et tu repostes le même code avec les mêmes erreurs
à quoi ça sert alors
applique déjà ce qu'on t'a dit
et pour le reste l'erreur doit se trouver dans la partie du code manquante
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 4 févr. 2006 à 22:48
Si tu penses que tout fait c'est bien mais à mon avis il faudrait reprendre le code de A à Z parce que là c'est plutôt le "bordel"
entre le code inutile et le mal placer
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 4 févr. 2006 à 23:19
Maxioutils : tu vas finir par décourager les quelques personnes compétentes et pleines de bonne volonté pour rendre service aux autres. Si tu ne veux pas des conseils et des remarques constructives, alors ne pose pas de question et contente toi d'observer et d'apprendre. En faisant n'importe quoi comme en atteste ton code ci-dessus, tu perds ton temps et cela ne t'aide pas à progresser.
On veut bien t'aider mais on ne veut pas non plus avoir l'impression de gâcher notre temps libre pour des gens qui ne veulent rien entendre.
Un conseil : NOMME TES COMPOSANTS ! Si en plus on doit deviner ce qu'est censée faire chaque action, avec un code complètement désordonné et aucun commentaire...
Que ferais-tu si tu étais à notre place ?
<hr color="#008000">Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.