probleme de click entre un temps

Question

Voila le code presque complet :

unit Unit6;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, XPMan;


type
  TForm6 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Timer1: TTimer;
    Button3: TButton;
    Edit3: TEdit;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    z: TXPManifest;
    Edit4: TEdit;
    Label1: TLabel;
    Panel1: TPanel;
    RadioGroup3: TRadioGroup;
    Label2: TLabel;
    Panel2: TPanel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    Panel3: TPanel;
    Button2: TButton;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);


    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);


    procedure Button1Click(Sender: TObject);
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
  end;


var
  Form6: TForm6;


implementation


{$R *.dfm}


procedure TForm6.Button1Click(Sender: TObject);
   var Position: TPoint;
begin
GetCursorPos(Position);


Edit1.Text := IntToStr(Position.X);
Edit2.Text := IntToStr(Position.Y);


  end;


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 &#231;a clique &#224; chaque foi tote les 10 seconde &#231;a le fait la premiere fio et la 2eme foi &#231;a ne marche plus.

Cirec · Answer

Non mais attend,
tu poses des questions parce que tu as un probl&#232;me dans ton code ok 
on te r&#233;pond et on te fournis la r&#233;ponse o&#249; solution comme tu veux
et tu repostes le m&#234;me code avec les m&#234;mes erreurs 

&#224; quoi &#231;a sert alors 


applique d&#233;j&#224; ce qu'on t'a dit


et pour le reste l'erreur doit se trouver dans la partie du code manquante 


@+

Cirec

maxioutils · Answer

mais j'ai appliquer je ne vois pas ou il y a d'erreur ? enfin juste pour timer.interval c'est tout je pense mais &#231;a n'afflu pas dans le probleme

Cirec · Answer

Si tu penses que tout fait c'est bien mais &#224; mon avis il faudrait reprendre le code de A &#224; Z parce que l&#224; c'est plut&#244;t le "bordel"
entre le code inutile et le mal placer


@+

Cirec

maxioutils · Answer

ok daccord je vais tout refaire

cs_Delphiprog · Answer

Maxioutils : tu vas finir par d&#233;courager les quelques personnes comp&#233;tentes et pleines de bonne volont&#233; 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 &#224; progresser.
On veut bien t'aider mais on ne veut pas non plus avoir l'impression de g&#226;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&#233;e faire chaque action, avec un code compl&#232;tement d&#233;sordonn&#233; et aucun commentaire...
Que ferais-tu si tu &#233;tais &#224; notre place  ? 

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

maxioutils · Answer

Je suis d&#233;sol&#233;

Bon j'ai refais tout le code et &#231;a marche nickel merci

Probleme de click entre un temps

6 réponses

Votre réponse

Discussions similaires