как программно добавить "виртуальные курсоры" Delphi

[beegl]

Добрый час! Подскажите, как программно добавить "виртуальные курсоры" Delphi, т.е. существует основной курсор, который реагирует на нажатия и все события, и помимо его, несколько курсоров добавить, которые двигаются в случайном порядке, но не реагируют на события, см. скрин:



здесь нашел

[FaTaL]

Второй курсор наверно винда не даст создать (хотя могу ошибаться), а вот сделать картинку как курсор и перемещать её по экрану вполне возможно.
Вот тут почитай, хотя сам не читал, убегаю на корпоратив http://habrahabr.ru/post/86023/

[Человек_Борща]

Все можно и все просто. http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[beegl]

Человек_Борща, напишите пожалуйста пример, а то не очень понятно

[Аватар]

Для одной мыши мало вероятно сделать несколько курсоров. Можно по таймеру рандомно рисовать в DC экрана ваши виртуальные курсоры

[beegl]

Аватар, напишите пример, как на скрине, если получается, за пределы главного, то можете оформить за пределы окна, ...... кстати, хорошая идея по защите конфиденциальности инф.., т.е. чтоб была малая вероятность воровства пароля?

[Аватар]

Как на скрине самому прийдется, в примере с рандомностью и прозрачностью не заморачивался и только для одной картинки. bmp 32*32 (во вложении) нужно в Image засунуть. Прозрачность можно здесь посмотреть http://www.sources.ru/msdn/howto/q79212.shtml

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    lRow,lCol: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var DC,CompatibleDC: HDC;
    OldBitmap: HBITMAP;
begin
  Refresh;
  DC:=GetDC(Handle);
  CompatibleDC:=CreateCompatibleDC(DC);
  OldBitmap:=SelectObject(CompatibleDC,Image1.Picture.Bitmap.Handle);
  BitBlt(DC,lCol,lRow,32,32,CompatibleDC,0,0,SRCCOPY);
  SelectObject(CompatibleDC,OldBitmap);
  DeleteDC(CompatibleDC);
  ReleaseDC(Handle,DC);
  Inc(lRow);
  if lRow>ClientHeight-32 then lRow:=0;
  Inc(lCol);
  if lCol>ClientWidth-32 then lCol:=0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 lRow:=0; lCol:=0;
  Image1.Visible:=False;
 Timer1.Interval:=50;
 Timer1.Enabled:=True;
end;

end.

[beegl]

Аватар, этот код двигает курсор только в одном направлении, без рандома, куда вставить рандом, и чтоб реагировал на движение основного курсора,т.е. если реальный курсор без действия, то и виртуальные курсоры тоже должны быть без действия?