Мышка

Добавление события OnMouseLeave

2017-10-03T16:44:16+07:00

Все потомки TComponent могут посылать сообщения CM_MOUSEENTER и CM_MOUSELEAVE во время вхождения и покидания курсора мыши области компонента. Если вам необходимо, чтобы ваши компоненты обладали реакцией на эти события, необходио написать для них соответствующие обработчики.

Подробнее...

Имитировать события мыши

2017-10-02T21:33:35+07:00

В этом примере курсор мыши сам встает на кнопку и нажимает на нее.

Подробнее...

Как автоматически помещать курсор мышки в центр контрола получившего фокус?

2017-10-02T21:32:13+07:00

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

Вот пример вызова нашей функции:

Подробнее...

Как заставить появиться окошко подсказки когда курсор мышки находится над определённым контролом?

2017-10-03T16:43:07+07:00

Code:

var hintWnd: THintWindow;

procedure TForm1.ActivateHintNOW( x,y: Integer);

var rect: TRect;

begin

HintTxt := 'qq';

if hintTxt <> '' then

begin

rect := hintWnd.CalcHintRect( Screen.Width, hinttxt, nil);

rect.Left := rect.Left + x;

rect.Right := rect.Right + x;

rect.Top := rect.Top + y;

rect.Bottom := rect.Bottom + y;

hintWnd.ActivateHint( rect, hinttxt);

end;

Замечание: Не забудьте каждый раз создавать hintWnd:

hintwnd:= THintWindow.create(self);

а затем освобождать его

hintwnd.releasehandle;

Как имитировать нажатие левой кнопки мыши?

2017-10-02T21:29:11+07:00

Code:

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);

Application.ProcessMessages;

mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

Как использовать mouse_event() для эмулирования событий мышки?

2017-10-02T21:29:52+07:00

Следующий пример демонстрирует использование API функции mouse_event() для эмуляции событий мышки. Когда Button2 нажата, то мышь перемещается на Button1 и щёлкает по ней. Координаты мыши даны в "Mickeys", где 65535 соответствует ширине экрана.

Подробнее...

Как ограничить движения мышки определённой областью?

2017-10-03T02:38:27+07:00

Для этого можно воспользоваться API функцией ClipCursor(). Например, можно вставить следующий код в обработчик события формы OnMouseDown:

ClipCursor(&BoundsRect);

а следующий код в обработчик события формы OnMouseUp:

ClipCursor(NULL);

Подробнее...

Как определить координаты курсора мыши?

2017-10-02T21:20:09+07:00

GetCursorPos()

Автор Spawn

Обрабатывай событие OnMouseMove. Координаты курсора можно получить следующим путем:

Подробнее...

Как отследить выход мыши за пределы формы?

2017-10-02T21:21:44+07:00

Можно через события OnMouseEnter/OnMouseLeave:

Затем считывать параметр FMouseInPos.

Подробнее...

Как получить координаты указателя мыши относительно формы в Delphi

2017-10-02T21:22:59+07:00

Существует такой тип, как TMouse, который передаёт координаты мышки в любое время, так что помести в обработчик события нажатия мыши на форме его вызов. Подробнее смотри в хелпе.

Лучше говорить, что существует объект класса TMouse, на него ссылается глобальная переменная Mouse из модуля Controls... А то человек кинется создавать свой экземпляр...

Подробнее...

Как поменять функции кнопок мышки?

2017-10-02T21:16:47+07:00

Code:

Begin

//---------

SwapMouseButton(true); // Поменять обратно - SwapMouseButton(false);

//---------

end;

Как послать нажатие кнопки мыши в окно?

2017-10-02T21:28:38+07:00

Существуют функции winapi:

WM_LBUTTONDOWN

WM_RBUTTONDOWN

Если проверить точку нажатия мышки таким вот образом:

...

SetForegroundWindow(WindowUO);

mouse_event(MOUSEEVENTF_MOVE,400,400,0,0);

...

то получилось, что мышка перемещалась не в те координаты(относительно разрешения монитора (800 на 600)) которые я задумал(в не зависимости от местоположения мышки она перемещалась строго по одному направлению на одинаковое расстояние), причем я сделал еще один вариант - dx=100, dy=100, но тогда перемещение мышки произошло в другую сторону(в сторону x=0 y=0 монитора)!

Подробнее...

Как программно двигать курсор мышки?

2017-10-02T21:31:28+07:00

Следующий пример показывает, как "подтолкнуть мышку" без вмешательства пользователя.

Подробнее...

Как программно определить количество кнопок мышки

2017-10-02T21:16:10+07:00

Code:

// if the result is 0, no mouse is present

function GetNumberOfMouseButtons: Integer;

begin

Result := GetSysTemMetrics(SM_CMOUSEBUTTONS);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage('Your mouse has ' + IntToStr(GetNumberOfMouseButtons) + ' buttons.');

end;

Как прочитать и изменить doubleclick time?

2017-10-02T21:17:28+07:00

Code:

// Set example:

procedure TForm1.Button1Click(Sender: TObject);

begin

// will reset after system start

SetDoubleClickTime(1500);

end;

// Get example:

procedure TForm1.Button2Click(Sender: TObject);

begin

ShowMessage(IntToStr(GetDoubleClickTime));

end;

Как узнать есть ли у мыши колесико?

2017-10-02T21:15:13+07:00

Существует свойство "WheelPresent" глобального обьекта "mouse".

Как узнать, находится ли мышка на форме?

2017-10-02T21:20:49+07:00

Для этого можно воспользоваться API функцией GetCapture().

Пример:

Подробнее...

Как узнать, присутствует ли мышка?

2017-10-02T21:14:22+07:00

Code:

function MousePresent : Boolean;

begin

if GetSystemMetrics(SM_MOUSEPRESENT) <> 0 then

Result := true

else

Result := false;

end;

Ловить события мышки вне приложения

2017-10-03T16:45:31+07:00

Code:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, AppEvnts, StdCtrls;

type

TForm1 = class(TForm)

ApplicationEvents1: TApplicationEvents;

Button_StartJour: TButton;

Button_StopJour: TButton;

ListBox1: TListBox;

procedure ApplicationEvents1Message(var Msg: tagMSG;

var Handled: Boolean);

procedure Button_StartJourClick(Sender: TObject);

procedure Button_StopJourClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

FHookStarted : Boolean;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

var

JHook: THandle;

// The JournalRecordProc hook procedure is an application-defined or library-defined callback

// function used with the SetWindowsHookEx function.

// The function records messages the system removes from the system message queue.

// A JournalRecordProc hook procedure does not need to live in a dynamic-link library.

// A JournalRecordProc hook procedure can live in the application itself.

// WH_JOURNALPLAYBACK Hook Function

//Syntax

// JournalPlaybackProc(

// nCode: Integer; {a hook code}

// wParam: WPARAM; {this parameter is not used}

// lParam: LPARAM {a pointer to a TEventMsg structure}

// ): LRESULT; {returns a wait time in clock ticks}

function JournalProc(Code, wParam: Integer; var EventStrut: TEventMsg): Integer; stdcall;

var

Char1: PChar;

s: string;

begin

{this is the JournalRecordProc}

Result := CallNextHookEx(JHook, Code, wParam, Longint(@EventStrut));

{the CallNextHookEX is not really needed for journal hook since it it not

really in a hook chain, but it's standard for a Hook}

if Code < 0 then Exit;

{you should cancel operation if you get HC_SYSMODALON}

if Code = HC_SYSMODALON then Exit;

if Code = HC_ACTION then

begin

{

The lParam parameter contains a pointer to a TEventMsg

structure containing information on

the message removed from the system message queue.

}

s := '';

if EventStrut.message = WM_LBUTTONUP then

s := 'Left Mouse UP at X pos ' +