Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
1-44097
electric
2003-04-02 16:29
2003.04.14
Проблема в порядке найденных файлов


14-44458
Ihor Osov'yak
2003-03-30 14:48
2003.04.14
Странные события в деструкторе...


14-44406
AndrewXXX
2003-03-27 10:27
2003.04.14
Ищу документацию


9-43984
Checist[root]
2002-11-14 11:09
2003.04.14
Нужен исходник


1-44245
anton2v
2003-04-02 11:15
2003.04.14
Не могу найти событие





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский