Кликер на Delphi

[Nastya1998]

Привет всем, мне нужен код/исходник кликера на Delphi, все очень просто, ставим мышку в любое место нажимаем на клавишу Ctrl и программа кликает по тому месту, на которое мы навели курсор, но нужно что-бы кликала программка именно в то место, в которое поставили курсор, и если сдвинешь мышку, то программка вернет курсор на то место, где кликает, и продолжит кликать, для отключения просто нажать Ctrl еще раз.

[ZX Spectrum-128]

Честно говоря, мало что понял.
Наваял на скорую руку. Курсор бегает, ежели надавить на ctrl, бросает msg о нажатии левого бтн.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  keypreview:=true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);

begin
  if ssCtrl  in shift then
    begin
      mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
      Application.ProcessMessages;
      mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
      label1.Caption:='Left button pressed';
    end;


end;

end.

Кажется, не то
У меня просто отслеживается нажатие ctrl (?)
Но сама идея про mouseevent должна быть верной.
Потому что не моя

[Nastya1998]

Сообщение от ZX Spectrum-128

Честно говоря, мало что понял.
Наваял на скорую руку. Курсор бегает, ежели надавить на ctrl, бросает msg о нажатии левого бтн.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  keypreview:=true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);

begin
  if ssCtrl  in shift then
    begin
      mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
      Application.ProcessMessages;
      mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
      label1.Caption:='Left button pressed';
    end;


end;

end.

Кажется, не то
У меня просто отслеживается нажатие ctrl (?)
Но сама идея про mouseevent должна быть верной.
Потому что не моя

Мне нужно вот это:
Ставишь курсор в любое место нажимаешь Ctrl и программка кликает только по тому месту на которое ты поставил курсор, а если двинешь мышку то курсор вернется на то место где кликает и продолжит кликать, а если нажать на Ctrl то кликать перестает!

[DIONISKA]

Сообщение от Nastya1998

Мне нужно вот это:
Ставишь курсор в любое место нажимаешь Ctrl ...

Вот тебе исходник моего кликера - разбирайся Принцип работы: ставит глобальный хук и ловит нажатие ctrl + правая кнопка мыши, затем шлёт сообщения главному окну, которое уже используя mouseevent имитирует нажатия левой кнопки мыши и следит за координатами указателя мыши.

[mirkul]

В событии OnKeyDown/OnKeyUp:

...
if(key=vk_Control) then self.Click;
...

В делфе давно не сидел, помоему вот так, если не ошибаюсь