Шлейф от курсора в Delphi

[ddd3]

Здравствуйте,подскажите пожалуйста как реализовать в delphi шлейф который оставляет курсор при движении(след в виде кружочков или звездочек да чего угодно )если можно то самый простой способ реализации(((

[s-andriano]

Обрабатывать событие перемещения мыши.

[ddd3]

а можно какой нибудь простенький примерчик,а то понятия не имею с чего начать((

[s-andriano]

Начните с подробного описания по-русски, чего именно хотите.

[phomm]

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
   Canvas.Ellipse(x + 10, y, x, y + 10);
end;

Создать на форме событие OnMouseMove и указать этот код.

[ddd3]

Большое спасибо за пример)))А если я хочу свою картинку вместо эллипса,это нужно через ресурс подгружать?

[s-andriano]

Можете подгружать любым удобным для Вас способом. На возможность рисовать "шлейф" это никак не влияет.

[phomm]

Самая банальщина.

TForm1 = class(TForm);
  bmp: TBitmap; //добавлено
...
procedure TForm1.FormCreate(Sender: TObject);
begin
   bmp := TBitmap.Create();
   bmp.LoadFromFile('полный путь до до bmp-картинки');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
   FreeAndNil(bmp);
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
   Canvas.Draw(x, y, bmp);
end;

Создать события OnCreate OnDestroy в инспекторе объектов для формы и проставить соотв. код.

[ddd3]

Большое спасибо за примеры!!!