Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
r_a_d_i_k
0 / 0 / 1
Регистрация: 01.05.2017
Сообщений: 23
1

Сделать анимацию движения хвоста у мышки

01.05.2017, 15:00. Просмотров 819. Ответов 11
Метки нет (Все метки)

сделать анимацию движения хвоста у мышки,вот есть код
0
Вложения
Тип файла: zip КУРСАЧ.zip (951.0 Кб, 10 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.05.2017, 15:00
Ответы с готовыми решениями:

Нужно сделать анимацию движения нарисованного стула
Здравствуйте! Я написал программу, рисующую стул, и нужно сделать так, чтобы...

Рисунок или анимацию двигать рядом с курсором мышки
Нужно чтобы рисунок или анимация двигались всегда рядом, около курсора мыши...

Эмуляция движения мышки с шагом в 1 пиксель
Здравствуйте. Помогите пожалуйста. Мне нужно эмулировать движение мыши вот код...

нужно сделать анимацию, всплывающие гипперсылки
есть программа написанная на делфи! в этой программе нужно сделать анимацию,...

Как сделать подсветку кликов мышки ?
Нигде не нашёл. Добавлено через 19 минут а лучше проект готовый хука ...

11
r_a_d_i_k
0 / 0 / 1
Регистрация: 01.05.2017
Сообщений: 23
01.05.2017, 18:56  [ТС] 2
Очень нужна помощь
0
D1973
01.05.2017, 19:28
  #3
 Комментарий модератора 
r_a_d_i_k, Не лезьте в другие темы! Раз сами думать не хотите, то создали свою тему и ждите, пока Вам кто-нибудь ответит. Незачем влезать со своими проблемками в чужие темы. Предупреждение
0
r_a_d_i_k
0 / 0 / 1
Регистрация: 01.05.2017
Сообщений: 23
01.05.2017, 19:33  [ТС] 4
D1973, Ладно хорошо, больше не буду)
Слушай, можешь помочь?) Очень нужна чья-нибудь помощь
0
krapotkin
3441 / 3044 / 1051
Регистрация: 14.04.2014
Сообщений: 14,762
Записей в блоге: 15
01.05.2017, 22:04 5
Кликните здесь для просмотра всего текста
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    tailStatus:integer;
  public
    procedure DrawMouse();
  end;
 
var
 
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if tailStatus=0 then
    tailStatus :=1
  else
    tailStatus := 0;
  DrawMouse();
end;
 
procedure TForm1.DrawMouse();
var
  dx:integer;
begin
  Image1.Canvas.Pen.Width := 2;
  Image1.Canvas.Brush.Color := clWhite;
  Image1.Canvas.FillRect(image1.ClientRect);
 
  dx:=-250*tailStatus;
 
  Image1.Canvas.Pen.Width := 2;
  Image1.Canvas.Brush.Color := clAppWorkSpace;
 
  Image1.Canvas.Arc(dx+533, 300, dx+433, 250, dx+50, 300, dx+933, 200); // xvost
  Image1.Canvas.Arc(dx+537, 280, dx+437, 230, dx+57, 280, dx+937, 390); // xvost
 
  Image1.Canvas.Ellipse(250, 70, 250 + 80, 70 + 80); // 1 yxo
  Image1.Canvas.Ellipse(368, 70, 368 + 80, 70 + 80); // 2 yxo
  Image1.Canvas.Ellipse(210, 170, 210 + 75, 170 + 30); // 1 ryka
  Image1.Canvas.Ellipse(415, 170, 415 + 75, 170 + 30); // 2 ryka
  Image1.Canvas.Ellipse(267, 320, 267 + 75, 320 + 30); // 1 noga
  Image1.Canvas.Ellipse(360, 320, 360 + 75, 320 + 30); // 2 noga
  Image1.Canvas.Brush.Color := rgb(255, 182, 193);
  Image1.Canvas.Ellipse(265, 90, 265 + 30, 90 + 30); // 1 v yxe
  Image1.Canvas.Ellipse(405, 90, 405 + 30, 90 + 30); // 2 v yxe
  Image1.Canvas.Brush.Color := clAppWorkSpace;
  Image1.Canvas.Ellipse(250, 90, 250 + 200, 90 + 250); // tylovishe
  Image1.Canvas.Brush.Color := rgb(255, 182, 193);
  Image1.Canvas.Ellipse(310, 215, 310 + 80, 215 + 110); // pyzo
  Image1.Canvas.Pen.Width := 10;
  Image1.Canvas.Ellipse(300, 130, 300 + 5, 130 + 20); // 1 glaz
  Image1.Canvas.Ellipse(393, 130, 393 + 5, 130 + 20); // 2 glaz
  Image1.Canvas.Pen.Width := 2;
  Image1.Canvas.Brush.Color := clCream;
  Image1.Canvas.Ellipse(340, 160, 340 + 20, 160 + 10); // noc
  Image1.Canvas.Arc(357, 185, 307, 85, 307, 185, 357, 185); // 1 yciko
  Image1.Canvas.Arc(393, 185, 343, 85, 343, 185, 393, 185); // 2 yciko
 
end;
 
end.
1
r_a_d_i_k
0 / 0 / 1
Регистрация: 01.05.2017
Сообщений: 23
01.05.2017, 22:28  [ТС] 6
krapotkin, Ой бл*, я не тот код скинул, извините, но можете другое сделать, мне там анимацию движения хвоста надо через таймер сделать)
0
Вложения
Тип файла: zip МЫШКА.zip (219.6 Кб, 3 просмотров)
r_a_d_i_k
0 / 0 / 1
Регистрация: 01.05.2017
Сообщений: 23
01.05.2017, 22:37  [ТС] 7
krapotkin, Очень нужна ваша помощь

Добавлено через 3 минуты
ЛЮДИ ТОТ КОД КОТОРЫЙ СВЕРХУ ("КУРСАЧ") ЭТО НЕ ТО

Добавлено через 1 минуту
Тот который надо это ("МЫШКА")

Добавлено через 4 минуты
krapotkin, Сможете помочь????
0
Animalia
224 / 79 / 35
Регистрация: 01.04.2017
Сообщений: 182
01.05.2017, 22:44 8
krapotkin уже дал анимацию хвоста. От вас требуется только в событие таймера запихнуть вызов Button1.click

Ну и хвост заменить
Delphi
1
2
  Image1.Canvas.Arc(dx+533, 300, dx+433, 250, dx+50, 300, dx+933, 200); // xvost
  Image1.Canvas.Arc(dx+537, 280, dx+437, 230, dx+57, 280, dx+937, 390); // xvost
по аналогии на
Delphi
1
 Image1.Canvas.Ellipse(dx+410,260,dx+410+120,260+20);    //xvost..VOT//
1
r_a_d_i_k
0 / 0 / 1
Регистрация: 01.05.2017
Сообщений: 23
01.05.2017, 22:53  [ТС] 9
А можно поподробнее)) КАК? и что такое tailStatus??

Добавлено через 5 минут
Animalia, Конечно я счас в наглую попрошу, но, можете просто рабочий код скинуть, так чтобы хвост двигался туда сюда через таймер??))) ОЧЕНЬ ВАС ПРОШУ)))
0
Animalia
224 / 79 / 35
Регистрация: 01.04.2017
Сообщений: 182
01.05.2017, 23:01 10
Лучший ответ Сообщение было отмечено r_a_d_i_k как решение

Решение

Как? Ну таймер у тебя уже есть, два раза мышкой щелкаеш, создается обработчик в нем одна единственная строка
Delphi
1
2
3
4
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  button1.Click
end;
#15 кода от krapotkin tailStatus:integer;
Очевидно для анимации хвоста нам надо знать его положение. Вот за это и отвечает эта переменная.
Если честно непонятно, что может быть непонятно.

Если не нравится процедура в паблике можно опять таки переделать код от krapotkin запихнув все в обработчик кнопки

Кликните здесь для просмотра всего текста
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    tailStatus:integer;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;  
  tailStatus:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  dx:integer;
begin
  if tailStatus=0 then
    tailStatus :=1
  else
    tailStatus := 0;
 
  Image1.Canvas.Pen.Width := 2;
  Image1.Canvas.Brush.Color := clWhite;
  Image1.Canvas.FillRect(image1.ClientRect);
 
  dx:=-250*tailStatus;
 
  Image1.Canvas.Pen.Width := 2;
  Image1.Canvas.Brush.Color := clAppWorkSpace;
 
  Image1.Canvas.Ellipse(dx+410,260,dx+410+120,260+20);    //xvost..VOT//
 
  Image1.Canvas.Ellipse(250, 70, 250 + 80, 70 + 80); // 1 yxo
  Image1.Canvas.Ellipse(368, 70, 368 + 80, 70 + 80); // 2 yxo
  Image1.Canvas.Ellipse(210, 170, 210 + 75, 170 + 30); // 1 ryka
  Image1.Canvas.Ellipse(415, 170, 415 + 75, 170 + 30); // 2 ryka
  Image1.Canvas.Ellipse(267, 320, 267 + 75, 320 + 30); // 1 noga
  Image1.Canvas.Ellipse(360, 320, 360 + 75, 320 + 30); // 2 noga
  Image1.Canvas.Brush.Color := rgb(255, 182, 193);
  Image1.Canvas.Ellipse(265, 90, 265 + 30, 90 + 30); // 1 v yxe
  Image1.Canvas.Ellipse(405, 90, 405 + 30, 90 + 30); // 2 v yxe
  Image1.Canvas.Brush.Color := clAppWorkSpace;
  Image1.Canvas.Ellipse(250, 90, 250 + 200, 90 + 250); // tylovishe
  Image1.Canvas.Brush.Color := rgb(255, 182, 193);
  Image1.Canvas.Ellipse(310, 215, 310 + 80, 215 + 110); // pyzo
  Image1.Canvas.Pen.Width := 10;
  Image1.Canvas.Ellipse(300, 130, 300 + 5, 130 + 20); // 1 glaz
  Image1.Canvas.Ellipse(393, 130, 393 + 5, 130 + 20); // 2 glaz
  Image1.Canvas.Pen.Width := 2;
  Image1.Canvas.Brush.Color := clCream;
  Image1.Canvas.Ellipse(340, 160, 340 + 20, 160 + 10); // noc
  Image1.Canvas.Arc(357, 185, 307, 85, 307, 185, 357, 185); // 1 yciko
  Image1.Canvas.Arc(393, 185, 343, 85, 343, 185, 393, 185); // 2 yciko
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  button1.Click
end;
 
end.
1
r_a_d_i_k
0 / 0 / 1
Регистрация: 01.05.2017
Сообщений: 23
01.05.2017, 23:07  [ТС] 11
Animalia, СПАСИБО БОЛЬШОЕ)))
0
krapotkin
3441 / 3044 / 1051
Регистрация: 14.04.2014
Сообщений: 14,762
Записей в блоге: 15
02.05.2017, 05:20 12
что за адский треш?
если есть процедура по имени DrawMouse(), отгадайте, что она делает ?
второй вопрос
если вызвать это из ButtonClick() то почему нельзя вызывать это же из Timer.OnTimer ?
зачем вызывать клик по кнопке???
0
02.05.2017, 05:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2017, 05:20

Сделать событие по клику колеса прокрутки мышки
Здравствуйте. Подскажите пожалуйста, как сделать событие именно на клик...

Нужно сделать переход или как анимацию кнопки
Хочу сделать анимацию кнопки. Не знаю какой компонент взять, можно ли на...

Как можно сделать программу лучше (добавить анимацию, звуки, видео)?
Как можно сделать программу лучше,добавить там анимацию ,звуки ,видео.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru