Mausklick simulieren

[-187-]

?? Wer lesen kann..

[Lapadula]

wie gesagt quellcode kann nicht falsch sein da der fehler bei einzeiller kommt und @himitsu ich will nicht wissen wie man die simulation proggt

[Jacques Murell]

Dann kann dir hier niemand helfen. Der gepostete Code ist zu 100% korrekt und der Fehler liegt eindeutig bei dir.

[-187-]

Poste doch einfach den gesamten Quellcode...

Zur Kontrolle: Erstell ein neues Projekt, Save & Compile....Mal gucken ob da der Fehler schon auftritt.

[Lapadula]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  klcks: integer;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var i :integer ;
begin
SetCursorPos(200,200);
For i := 0 to strtoint(edit1.text) do
 begin
 mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
 mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
 end;

[roboter202]

Hallo,

Zitat von Lapadula:

Delphi-Quellcode:

var
  klcks: integer;

1. die Variable klcks wird nicht verwendet
2. Ich glaube das sollte Klicks heißen
3. Der Fehler ist die Variable Form1: TForm1; fehlt

Probier's mal

PS:
Ich hoffe doch sehr das du die Unit und die Procedure am Ende noch mit den Zeilen

Delphi-Quellcode:

end;
end.

schließt


Gruß Christian

[Lapadula]

was genau meinst du mit

Zitat:

3. Der Fehler ist die Variable Form1: TForm1; fehlt

sry dafür das ich mich so dumm anstelle bekomme den code nicht gebacken, bräuchte nur ein Erfolgserlebnis

[roboter202]

Hi,

Zitat von Lapadula:

was genau meinst du mit

Zitat:

3. Der Fehler ist die Variable Form1: TForm1; fehlt

sry dafür das ich mich so dumm anstelle bekomme den code nicht gebacken, bräuchte nur ein Erfolgserlebnis

naja es heißt zzt.

Delphi-Quellcode:

var
  klcks: integer;

implementation

{$R *.dfm}

aber muss heißen

Delphi-Quellcode:

var
  klcks: integer;
  Form1: TForm1 ;

implementation

{$R *.dfm}

Vermutlich hast du Form1: TForm1 ; versehentlich gelöscht

Versuch das mal

Gruß Christian

[Lapadula]

Das war es ! Vielen Dank dich und natürlich an all die anderen die mir versucht haben zu helfen =)