Форум: "Основная";
Текущий архив: 2003.04.14;
Скачать: [xml.tar.bz2];
ВнизКак сделать чтобы мышка летала? Найти похожие ветки
← →
Ильяс Садыков (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]запиши координаты и клики, потом воспроизводи
← →
Leran2002 (2003-04-03 15:29) [9]Удалено модератором
← →
Leran2002 (2003-04-03 15:42) [10]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]Записать в авишник "работа с прогой" и не мучаться. Если такой подход интересен - чиркани, запостю как прога создания авишки называется и может сайт откуда качал.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c