Delphi dvojklik

Skús to takto:

mouse_event(MOUSEEVENTF_LEFTDOWN, Pozice.X, Pozice.Y, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, Pozice.X, Pozice.Y, 0, 0);
GetDoubleClickTime;
mouse_event(MOUSEEVENTF_LEFTDOWN, Pozice.X, PoziceY, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, Pozice.X, Pozice.Y, 0, 0);

Nejde to. Vždy se zvíší jenom o jednu.

Miniaplikace

1qoidk.jpg

var
pocet,i:integer;
Pozice:TPoint;
procedure TForm1.Button1Click(Sender: TObject);
begin
pocet:=strtoint(edit1.text);
SetCursorPos(200,120);
for i:=0 to pocet do
mouse_event(MOUSEEVENTF_LEFTDOWN,Pozice.x,Pozice.y ,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,Pozice.x,Pozice.y,0 ,0);
GetDoubleClickTime;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
label1.Caption:=inttostr(strtoint(label1.caption)+ 1);
end;

Prepáč, ale ten kód čo si sem dal naozaj dúfaš, že bude fungovať?

var
  pocet,i:integer;
  Pozice:TPoint;
procedure TForm1.Button1Click(Sender: TObject);
begin
  pocet:=strtoint(edit1.text);
  SetCursorPos(200,120);
  for i:=0 to pocet do
  begin     // toto tu Ti nechýba???  """"""""""""""""""""""""""""""""""""""""""""""""""""""""
     mouse_event(MOUSEEVENTF_LEFTDOWN,Pozice.x,Pozice.y ,0,0);
     mouse_event(MOUSEEVENTF_LEFTUP,Pozice.x,Pozice.y,0 ,0);
     GetDoubleClickTime;
   end; /// samozrejme end !!!!!!
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  label1.Caption:=inttostr(strtoint(label1.caption)+ 1);
end;

Ou, prázdniny byly opravdu dlouhé.
Děkuji

Takže Ti to funguje?

Len pre zaujímavosť: čo tým chceš vlastne dosiahnúť? Výsledok by sa dal možno vyriešiť elegantnejšie...

Pracuje jak má. Potřeba udělat za sebou měnící se počet kliknutí v řádů tisíců... radši si to nechám pro sebe, nic co by měl kdokoliv vědět