Как сделать чтобы мышка летала?

← →
Ильяс Садыков (2003-04-03 12:29) [0]

Дельфи 6. Нужно чтобы в самой программе курсор мышки САМ подлетал к элементу главного меню (Main Menu),выбирал ниспадающий пункт этого меню. Т.е.нужно сделать демонстрацию проги в самой проге. Какими функциями, методами, процедурами пользоваться? Напишите на мыло, если не лень. Буду признателен.

← →
Skier © (2003-04-03 12:31) [1]

>Ильяс Садыков
Всё это уже было придумало фирмой Microsoft и названо PowerPoint
Дерзай ! И не изобретай велосипед. :))

← →
Archon Kazansky © (2003-04-03 12:41) [2]

Чтобы летала?!
Мышь - птица гордая, пока не пнешь не полетит.

← →
hooch © (2003-04-03 12:45) [3]

Mouse.Fly := true;

← →
Skier © (2003-04-03 12:47) [4]

В "Потрепаться" энто дело...

← →
Shirson © (2003-04-03 13:15) [5]

>Skier
>Всё это уже было придумало фирмой Microsoft и названо PowerPoint
Дерзай ! И не изобретай велосипед. :))

А небыло мыслей, что человек пишет "how to" в самой проге? Он же написал "нужно сделать демонстрацию проги в самой проге".

Если знаете, то чего прикалываетесь? И если так на все темы отвечать, то их все можно в "Потрепаться" перекидывать, не отходя от кассы.

← →
chdv (2003-04-03 13:18) [6]

просто активизируй это меню.
зачем летающие мыши? или юзер не догадается как это сделать?

← →
Skier © (2003-04-03 14:09) [7]

>Shirson

> А небыло мыслей, что человек пишет "how to" в самой проге?
>

Всё может быть...

← →
Polevi © (2003-04-03 14:20) [8]

запиши координаты и клики, потом воспроизводи

Удалено модератором

uses sndkey32,ShellApi;

procedure MyMouseMoveXY(x,y:integer);
begin
{Преобразуем Pt к "mickeys" (аболютным координатам курсора мышки}
x := Round(x * (65535 / Screen.Width));
y := Round(y * (65535 / Screen.Height));
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, x, y, 0, 0);
end;

procedure MyMouseLeftDown;
begin
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
end;

procedure MyMouseLeftUp;
begin
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

procedure MyMouseLeftClick;
begin
MyMouseLeftDown;
MyMouseLeftUp;
end;

procedure MyMouseRightDown;
begin
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
end;

procedure MyMouseRightUp;
begin
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
end;

procedure MyMouseRightClick;
begin
MyMouseRightDown;
MyMouseRightUp;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Pt : TPoint;
begin
{Позволим кнопке Button2 перерисоваться}
Application.ProcessMessages;
{Найдем координаты центра button 1}
Pt.x := Button1.Left + (Button1.Width div 2);
Pt.y := Button1.Top + (Button1.Height div 2);
{Преобразуем Pt к координатам экрана}
Pt := ClientToScreen(Pt);
MyMouseMoveXY(Pt.x,Pt.y);
MyMouseLeftClick;
end;

← →
pasha676 (2003-04-03 15:49) [11]

Записать в авишник "работа с прогой" и не мучаться. Если такой подход интересен - чиркани, запостю как прога создания авишки называется и может сайт откуда качал.

Как сделать чтобы мышка летала? Найти похожие ветки