GetMouseClick(integer,integer,integer) Method

Feldolgozza a legutóbbi egérműveletet, és megadja hogy hol történt.

Namespace: Graph

procedure GetMouseClick(const Kind: integer; var X, Y: integer);

Parameters

Kind: Type: integer
Az egérművelet jellege (lásd alább).
X: Type: integer
Az egérművelet helyének X koordinátája.
Y: Type: integer
Az egérművelet helyének Y koordinátája.

Remarks

A kapott érték nem az aktuális területhez (viewport) van viszonyítva.

Ezen BGI átirat automatikusan gondoskodik arról, hogy az ablak bármilyen méretű is - akkor is megfelelően arányosítsa az egérműveletek pozícióit úgy hogy a pozíció vízszintesen 0..GetMaxX közé, függőlegesen 0..GetMaxY közé essen.

A használható típusok:

Kind	Description
MouseMove	az egér mozog az grafikus képernyő felett
MouseLeftDblClick	a bal egérgombbal dupla kattintás történt
MouseLeftDown	a bal egérgombot lenyomták
MouseLeftUp	a bal egérgombot felengedték
MouseMiddleDblClick	a középső egérgombbal (görgő) dupla kattintás történt
MouseMiddleDown	a középső egérgombot (görgő) lenyomták
MouseMiddleUp	a középső egérgombot (görgő) felengedték
MouseRightDblClick	a jobb egérgombbal dupla kattintás történt
MouseRightDown	a jobb egérgombot lenyomták
MouseRightUp	a jobb egérgombot felengedték

Examples

Delphi

procedure CircleAtClick;
var
  X, Y: integer;
begin
  repeat
  until IsMouseClick(MouseLeftDown);
  GetMouseClick(MouseLeftDown, X, Y);
  Circle(X, Y, 5);
end;

Reference

Graph