DelphiX daje nam możliwość wykrycia jaki obiekt znajduje się pod daną pozycją. Można to wykorzystać np. do zaznaczania jednostek po kliknięciu myszką.
Polecenia sprawdzające jaki obiekt znajduje się pod podaną pozycją :
|
1 |
DXSpriteEngine.Engine.GetSpriteAt(X,Y); |
Poniżej przedstawiam bardzo prosty przykład. Program będzie wykrywał obiekt ludzik (TImageSprite) po najechaniu na niego kursorem myszy :
|
1 2 3 4 5 6 7 |
procedure TForm1.DXDraw1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); begin if DxSpriteEngine.Engine.GetSpriteAt(X,Y) = ludzik then panel1.Visible:=true; else panel1.Visible:=false; end; |
Autor: Nakiel
